File Coverage

blib/lib/Methods/CheckNames.pm
Criterion Covered Total %
statement 24 24 100.0
branch n/a
condition n/a
subroutine 8 8 100.0
pod n/a
total 32 32 100.0


line stmt bran cond sub pod time code
1             #!/usr/bin/perl
2              
3             package Methods::CheckNames;
4              
5 1     1   24384 use strict;
  1         2  
  1         41  
6 1     1   5 use warnings;
  1         2  
  1         30  
7 1     1   1084 use B::Hooks::OP::Check;
  1         2440  
  1         46  
8 1     1   992 use B::Hooks::OP::PPAddr;
  1         762  
  1         29  
9 1     1   1040 use B::Hooks::EndOfScope;
  1         16064  
  1         8  
10 1     1   1290 use namespace::clean;
  1         5317  
  1         7  
11              
12             our $VERSION = "0.06";
13              
14             eval {
15             require XSLoader;
16             XSLoader::load(__PACKAGE__, $VERSION);
17             1;
18             } or do {
19             require DynaLoader;
20             push our @ISA, 'DynaLoader';
21             __PACKAGE__->bootstrap($VERSION);
22             };
23              
24             sub import {
25 3     3   957 my ($class) = @_;
26 3         8 my $caller = caller;
27              
28 3         32 my $hook = $class->setup;
29              
30             on_scope_end {
31 3     3   34 $class->teardown($hook);
32 3         30 };
33              
34 3         172 return;
35             }
36              
37             __PACKAGE__
38              
39             __END__