File Coverage

blib/lib/ChordPro/Output/Debug.pm
Criterion Covered Total %
statement 9 19 47.3
branch 0 2 0.0
condition 0 2 0.0
subroutine 3 4 75.0
pod 0 1 0.0
total 12 28 42.8


line stmt bran cond sub pod time code
1             #!/usr/bin/perl
2              
3             package ChordPro::Output::Debug;
4              
5 1     1   1865 use strict;
  1         2  
  1         37  
6 1     1   14 use warnings;
  1         2  
  1         52  
7 1     1   7 use Data::Dumper;
  1         2  
  1         283  
8              
9             sub generate_songbook {
10 0     0 0   my ( $self, $sb ) = @_;
11              
12 0 0 0       if ( ( $::options->{'backend-option'}->{structure} // '' ) eq 'structured' ) {
13 0           foreach ( @{$sb->{songs}} ) {
  0            
14 0           $_->structurize;
15             }
16             }
17 0           $Data::Dumper::Sortkeys = 1;
18 0           $Data::Dumper::Indent = 1;
19 0           my @book;
20 0           push( @book, Data::Dumper->Dump( [ $sb, $::options ], [ "song", "options" ] ) );
21 0           \@book;
22             }
23              
24             1;