summaryrefslogtreecommitdiff
path: root/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/API/Stack.pm
diff options
context:
space:
mode:
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/API/Stack.pm')
-rwxr-xr-xsystems/texlive/tlnet/tlpkg/tlperl/lib/Test2/API/Stack.pm8
1 files changed, 7 insertions, 1 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/API/Stack.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/API/Stack.pm
index ffa4ed57f0..d6b6e85c86 100755
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/API/Stack.pm
+++ b/systems/texlive/tlnet/tlpkg/tlperl/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 = ();