Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- package PPIx::Augment::Augmentation::Repair::PPI::Defined_Or_Regex {
- use parent q (PPIx::Augment::Augmentation);
- use PPIx::Augment::Utils;
- use namespace::clean;
- sub how_to_augment {
- invoke {
- elements_replace
- [ current ],
- [ build_token_regexp_match q (//) ]
- ;
- }
- }
- sub what_to_augment {
- where {
- it_is_operator_defined_or
- and its_sprevious_sibling {
- it_is_token_word
- and it_is_not {
- its_sprevious_sibling { it_is_token_operator q (->) }
- }
- }
- }
- }
- 1;
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement