package B::Simple::Node::Sym;
use Moose;

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

sub is_infix  { 0 }
sub is_prefix { 1 }

sub is_unary  { 1 }
sub is_binary { 0 }

sub perl {
    my $self = shift; 
    $self->value;
}

1;

__END__

=pod

=cut