File Coverage

blib/lib/Scope/Unwind.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 16 16 100.0


line stmt bran cond sub pod time code
1             package Scope::Unwind;
2             $Scope::Unwind::VERSION = '0.001'; # TRIAL
3 6     6   77369 use strict;
  6         6  
  6         135  
4 6     6   17 use warnings;
  6         5  
  6         114  
5 6     6   18 use XSLoader;
  6         5  
  6         109  
6 6     6   17 use Exporter 5.57 'import';
  6         83  
  6         465  
7             my @words = qw/HERE SUB UP SCOPE CALLER EVAL TOP/;
8             our @EXPORT = ('unwind', @words);
9             our %EXPORT_TAGS = (
10             ALL => \@EXPORT,
11             words => \@words,
12             );
13              
14             XSLoader::load(__PACKAGE__, __PACKAGE__->VERSION);
15              
16             #ABSTRACT: Return to an upper scope
17              
18             1;
19              
20             __END__