=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
=head1 COPYRIGHT & LICENSE
-Copyright 2008,2009,2010,2011,2013 Vincent Pit, all rights reserved.
+Copyright 2008,2009,2010,2011,2013,2014 Vincent Pit, all rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.