diff options
Diffstat (limited to 'dist/B-Lint/lib/B/Lint/Debug.pm')
| -rw-r--r-- | dist/B-Lint/lib/B/Lint/Debug.pm | 17 |
1 files changed, 11 insertions, 6 deletions
diff --git a/dist/B-Lint/lib/B/Lint/Debug.pm b/dist/B-Lint/lib/B/Lint/Debug.pm index 1a4bf31f7f..6ba09708cb 100644 --- a/dist/B-Lint/lib/B/Lint/Debug.pm +++ b/dist/B-Lint/lib/B/Lint/Debug.pm @@ -1,6 +1,6 @@ package B::Lint::Debug; -our $VERSION = '1.12'; +our $VERSION = '1.14'; =head1 NAME @@ -13,13 +13,15 @@ should not be loaded unless you're debugging. =cut -package B::SPECIAL; +package # hide from PAUSE + B::SPECIAL; use overload '""' => sub { my $self = shift @_; "SPECIAL($$self)"; }; -package B::OP; +package # hide from PAUSE + B::OP; use overload '""' => sub { my $self = shift @_; my $class = ref $self; @@ -28,7 +30,8 @@ use overload '""' => sub { "$class($name)"; }; -package B::SVOP; +package # hide from PAUSE + B::SVOP; use overload '""' => sub { my $self = shift @_; my $class = ref $self; @@ -37,7 +40,8 @@ use overload '""' => sub { "$class($name," . $self->sv . "," . $self->gv . ")"; }; -package B::SPECIAL; +package # hide from PAUSE + B::SPECIAL; sub DESTROY { } our $AUTOLOAD; @@ -45,7 +49,8 @@ sub AUTOLOAD { my $cx = 0; print "AUTOLOAD $AUTOLOAD\n"; - package DB; + package # hide from PAUSE + DB; while ( my @stuff = caller $cx ) { print "$cx: [@DB::args] [@stuff]\n"; |