Acme-PlayCode
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
lib/Acme/PlayCode/Plugin/NumberPlus.pm view on Meta::CPAN
package Acme::PlayCode::Plugin::NumberPlus;
use Moose::Role;
use List::MoreUtils qw/insert_after/;
use PPI::Token::Comment;
our $VERSION = '0.11';
our $AUTHORITY = 'cpan:FAYLAND';
around 'do_with_token_flag' => sub {
my $orig = shift;
my $self = shift;
my ( $token_flag ) = @_;
my @tokens = $self->tokens;
my $token = $tokens[$token_flag];
use Data::Dumper;
# print STDERR Dumper(\$token);
my $orginal_flag = $token_flag;
if ( $token->isa('PPI::Token::Operator') ) {
my $op = $token->content;
# only '+' '-' '*' '/' are do-able
if ( $op eq '+' or $op eq '-' or $op eq '*' or $op eq '/' ) {
# get next tokens
my (@next_full_tokens);
while ( $token_flag++ ) {
if ($tokens[$token_flag]->isa('PPI::Token::Whitespace') ) {
push @next_full_tokens, $tokens[$token_flag];
next;
}
last if ( $tokens[$token_flag]->isa('PPI::Token::Structure') );
if ( $tokens[$token_flag]->isa('PPI::Token::Operator') ) {
my $op2 = $tokens[$token_flag]->content;
unless ( $op2 eq '+' or $op2 eq '-' or $op2 eq '*' or $op2 eq '/' ) {
last;
}
}
last unless ( $tokens[$token_flag] );
push @next_full_tokens, $tokens[$token_flag];
}
# remove last space
pop @next_full_tokens if ( $next_full_tokens[-1]->isa('PPI::Token::Whitespace'));
$token_flag = $orginal_flag; # roll back
# get prev tokens
my (@prev_full_tokens);
while ($token_flag--) {
if ($tokens[$token_flag]->isa('PPI::Token::Whitespace') ) {
unshift @prev_full_tokens, $tokens[$token_flag];
next;
}
last if ($tokens[$token_flag]->isa('PPI::Token::Structure'));
if ( $tokens[$token_flag]->isa('PPI::Token::Operator') ) {
my $op2 = $tokens[$token_flag]->content;
unless ( $op2 eq '+' or $op2 eq '-' or $op2 eq '*' or $op2 eq '/' ) {
last;
}
}
last unless ( $tokens[$token_flag] );
unshift @prev_full_tokens, $tokens[$token_flag];
}
$token_flag = $orginal_flag; # roll back
# remove first space
shift @prev_full_tokens if ( $prev_full_tokens[0]->isa('PPI::Token::Whitespace'));
# only do-able for number, space, operator
my $do_able = 1;
$do_able = 0 unless (scalar @prev_full_tokens and scalar @next_full_tokens);
if ( $do_able ) {
foreach ( @prev_full_tokens, @next_full_tokens ) {
unless ( $_->isa('PPI::Token::Whitespace') or $_->isa('PPI::Token::Number') or
( $_->isa('PPI::Token::Operator') and $_->content =~ /^[\+\-\*\/]$/ ) ) {
$do_able = 0;
last;
}
}
}
view all matches for this distributionview release on metacpan - search on metacpan
( run in 0.828 second using v1.00-cache-2.02-grep-82fe00e-cpan-2c419f77a38b )