File Coverage

blib/lib/Music/Harmonica/TabsCreator/Warning.pm
Criterion Covered Total %
statement 24 24 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 0 2 0.0
total 31 33 93.9


line stmt bran cond sub pod time code
1             # An exception class used as a way to convey that some thrown errors are benign.
2             # This is a hack for the purpose of https://harmonica-tabs-creator.com
3              
4             package Music::Harmonica::TabsCreator::Warning;
5              
6 3     3   51 use 5.036;
  3         28  
7 3     3   63 use strict;
  3         8  
  3         75  
8 3     3   12 use warnings;
  3         6  
  3         125  
9 3     3   14 use utf8;
  3         5  
  3         15  
10              
11 3     3   100 use overload '""' => 'as_string';
  3         6  
  3         41  
12              
13             our $VERSION = '0.01';
14              
15 1     1 0 3 sub new ($class, $message) {
  1         66  
  1         5  
  1         32  
16 1         7 my $self = bless {message => $message,}, $class;
17 1         91 return $self;
18             }
19              
20 3     3 0 476 sub as_string ($self, $, $) {
  3         7  
  3         6  
21 3         32 return $self->{message}."\n";
22             }
23              
24             1;