File Coverage

blib/lib/DateTimeX/Lite/TimeZone/Floating.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 2 2 100.0
total 15 15 100.0


line stmt bran cond sub pod time code
1             # $Id: Floating.pm 27589 2008-12-29 23:51:35Z daisuke $
2              
3             package DateTimeX::Lite::TimeZone::Floating;
4 56     56   319 use strict;
  56         116  
  56         3225  
5 56     56   318 use base qw(DateTimeX::Lite::TimeZone::OffsetOnly);
  56         1017  
  56         54187  
6              
7             sub new {
8 27     27 1 84 my $class = shift;
9 27         341 bless {name => 'floating', offset => 0}, $class;
10             }
11              
12 43653     43653 1 203942 sub is_floating { 1 };
13              
14             1;