=head1 VERSION
-Version 0.08
+Version 0.09
=cut
-our $VERSION = '0.08';
+our $VERSION = '0.09';
=head1 SYNOPSIS
}
}
+sub pp_srefgen {
+ my $self = shift;
+
+ return do {
+ local $self->{brd_sub} = 0;
+ $self->SUPER::pp_srefgen(@_);
+ }
+}
+
sub pp_gv {
my $self = shift;
=item *
+C<pp_srefgen>
+
+=item *
+
C<pp_gv>
=back