File Coverage

eg/MyTimer.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch	1	2	50.0
condition			n/a
subroutine	8	8	100.0
pod	3	3	100.0
total	36	37	97.3

package MyTimer;
use strict;
use warnings;

##
## This is an example of how to subclass Devel::Timer
##

use strict;
use Devel::Timer;
use vars qw(@ISA);

@ISA = ("Devel::Timer");

sub initialize {
    my ($self) = @_;

    my $log = "timer.log";
    open(my $fh, '>>', $log) or die("Unable to open [$log] for writing.");
    $self->{MyTimer_fh} = $fh;
}

sub print {
    my($self, $msg) = @_;
    print {$self->{MyTimer_fh}} $msg . "\n";
}

sub shutdown {
    my ($self) = @_;
    close $self->{MyTimer_fh};
}

1;