use strict; use warnings; use Test::More tests => 7; use_ok 'Dancer::Timer'; my $timer = Dancer::Timer->new; ok(defined($timer), "timer is defined"); isa_ok($timer, 'Dancer::Timer'); can_ok($timer, 'tick'); ok(defined($timer->start_time), "start_time is defined"); my $t1 = $timer->tick; sleep 1; my $t2 = $timer->tick; ok(($t2 > $t1), "tick has been increased: ".$timer->tick); ok(length($timer->to_string), "to_string returned a string");