File Coverage

blib/lib/Data/iRealPro/Output/Base.pm
Criterion Covered Total %
statement 19 19 100.0
branch 1 2 50.0
condition n/a
subroutine 6 6 100.0
pod 0 2 0.0
total 26 29 89.6


line stmt bran cond sub pod time code
1             #! perl
2              
3             # Data::iRealPro::Output::Base -- base class for output backends
4              
5             # Author : Johan Vromans
6             # Created On : Mon Oct 3 08:13:17 2016
7             # Last Modified By: Johan Vromans
8             # Last Modified On: Thu Nov 1 21:08:55 2018
9             # Update Count : 32
10             # Status : Unknown, Use with caution!
11              
12             ################ Common stuff ################
13              
14 10     10   4176 use strict;
  10         24  
  10         285  
15 10     10   51 use warnings;
  10         18  
  10         227  
16 10     10   49 use Carp;
  10         20  
  10         505  
17 10     10   58 use utf8;
  10         25  
  10         49  
18              
19             package Data::iRealPro::Output::Base;
20              
21             sub new {
22 9     9 0 5066 my ( $pkg, $options ) = @_;
23              
24 9         41 my $self = bless( { variant => "irealpro" }, $pkg );
25              
26 9         23 for ( @{ $self->options } ) {
  9         42  
27 129 50       247 $self->{$_} = $options->{$_} if exists $options->{$_};
28             }
29              
30 9         33 return $self;
31             }
32              
33             sub options {
34             # The list of options this backend can handle.
35             # Note that 'output' is handled by Output.pm.
36 9     9 0 78 [ qw( trace debug verbose variant playlist catalog neatify select
37             musescore suppress-upbeat suppress-text override-alt condense
38             ) ]
39             }
40              
41             1;