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

sub type { (split '::' => blessed(shift))[-1] }

sub pprint {
    my ($self, $indent) = @_;
    $indent ||= '';
    return "${indent}[ " . $self->type . " ]=()";
}

sub sexpr {
    "(" . (shift)->type . ")"
}

1;

__END__

=pod

=cut