File Coverage

examples/synopsis.pl
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 15 15 100.0


line stmt bran cond sub pod time code
1 1     1   5526 use warnings;
  1         2  
  1         81  
2 1     1   20 use 5.020;
  1         4  
3 1     1   512 use Data::Section::Pluggable;
  1         5  
  1         1807  
4              
5 1         284991 my $dsp = Data::Section::Pluggable->new
6             ->add_plugin('trim')
7             ->add_plugin('json');
8              
9             # prints "Welcome to Perl" without prefix
10             # or trailing white space.
11 1         6 say $dsp->get_data_section('hello.txt');
12              
13             # also prints "Welcome to Perl"
14 1         5 say $dsp->get_data_section('hello.json')->{message};
15              
16             # prints "This is base64 encoded.\n"
17 1         5 say $dsp->get_data_section('hello.bin');
18              
19             __DATA__