File Coverage

lib/POE/Test/DondeEstan.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 16 17 94.1


line stmt bran cond sub pod time code
1             package POE::Test::DondeEstan;
2             $POE::Test::DondeEstan::VERSION = '1.358';
3 1     1   53 use warnings;
  1         2  
  1         45  
4 1     1   7 use strict;
  1         2  
  1         359  
5              
6 1     1   9 use File::Spec;
  1         1  
  1         103  
7              
8             # It's a pun on Marco Polo, the swimming game, and Marco A. Manzo,
9             # this cool dude I know. Hi, Marco!
10              
11             sub marco {
12 1     1 0 21 my @aqui = File::Spec->splitdir(__FILE__);
13 1         3 pop @aqui;
14 1         15 return File::Spec->catdir(@aqui);
15             }
16              
17             1;