diff options
Diffstat (limited to 'gnu/usr.bin/perl/cpan/Test-Simple/lib/Test2/API/Stack.pm')
| -rw-r--r-- | gnu/usr.bin/perl/cpan/Test-Simple/lib/Test2/API/Stack.pm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/gnu/usr.bin/perl/cpan/Test-Simple/lib/Test2/API/Stack.pm b/gnu/usr.bin/perl/cpan/Test-Simple/lib/Test2/API/Stack.pm index ffa4ed57f01..d6b6e85c86b 100644 --- a/gnu/usr.bin/perl/cpan/Test-Simple/lib/Test2/API/Stack.pm +++ b/gnu/usr.bin/perl/cpan/Test-Simple/lib/Test2/API/Stack.pm @@ -2,7 +2,7 @@ package Test2::API::Stack; use strict; use warnings; -our $VERSION = '1.302162'; +our $VERSION = '1.302175'; use Test2::Hub(); @@ -63,6 +63,12 @@ sub all { return @$self; } +sub root { + my $self = shift; + return unless @$self; + return $self->[0]; +} + sub clear { my $self = shift; @$self = (); |