<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">package B::Simple::Node::Op;
use Moose;

extends 'B::Simple::Node';
   with 'B::Simple::Role::WithValue';

sub is_infix  { (shift)-&gt;value =~ /\&amp;infix\:/  }
sub is_prefix { (shift)-&gt;value =~ /\&amp;prefix\:/ }

sub is_unary  { (shift)-&gt;is_prefix }
sub is_binary { (shift)-&gt;is_infix  }

sub perl {
    my $self = shift; 
    my ($op) = ($self-&gt;value =~ /\&amp;.*\:\&lt;(.*)\&gt;/);
    return $op;
}

1;

__END__

=pod

=cut</pre></body></html>