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;