File Coverage

blib/lib/Sim.pm
Criterion Covered Total %
statement 22 22 100.0
branch 1 2 50.0
condition 4 6 66.6
subroutine 6 6 100.0
pod n/a
total 33 36 91.6


line stmt bran cond sub pod time code
1             package Sim;
2              
3 1     1   43525 use strict;
  1         2  
  1         40  
4 1     1   5 use warnings;
  1         2  
  1         33  
5 1     1   6 use vars qw( $AUTOLOAD );
  1         2  
  1         59  
6              
7 1     1   558 use Sim::Dispatcher;
  1         2  
  1         24  
8 1     1   491 use Sim::Clock;
  1         2  
  1         181  
9              
10             our $VERSION = '0.03';
11              
12             our ($Clock, $Dispatcher);
13              
14             sub AUTOLOAD {
15 13     13   1011 my $self = shift;
16 13         16 my $method = $AUTOLOAD;
17              
18 13         64 $method =~ s/.*:://;
19 13 50       34 return if $method eq 'DESTROY';
20              
21 13   66     37 $Clock ||= Sim::Clock->new;
22 13   66     39 $Dispatcher ||= Sim::Dispatcher->new(clock => $Clock);
23 13         47 $Dispatcher->$method(@_);
24             }
25              
26             1;
27             __END__