File Coverage

blib/lib/Acme/Include/Data.pm
Criterion Covered Total %
statement 10 10 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 15 15 100.0


line stmt bran cond sub pod time code
1             package Acme::Include::Data;
2             require Exporter;
3             @ISA = qw(Exporter);
4             @EXPORT_OK = qw/yes_it_works/;
5             %EXPORT_TAGS = (
6             all => \@EXPORT_OK,
7             );
8 1     1   14851 use warnings;
  1         2  
  1         34  
9 1     1   4 use strict;
  1         1  
  1         18  
10 1     1   3 use Carp;
  1         4  
  1         154  
11             our $VERSION = '0.05';
12              
13             my $data = __FILE__;
14             $data =~ s/Data\.pm$/this-is-a-data-file.txt/;
15              
16             open my $in, "<", $data or die $!;
17             my $text = '';
18             while (<$in>) {
19             $text .= $_;
20             }
21              
22             sub yes_it_works
23             {
24 1     1 1 9 return $text;
25             }
26              
27             1;