File Coverage

blib/lib/PITA/Image/Platform.pm
Criterion Covered Total %
statement 10 18 55.5
branch n/a
condition n/a
subroutine 4 8 50.0
pod 0 3 0.0
total 14 29 48.2


line stmt bran cond sub pod time code
1             package PITA::Image::Platform;
2              
3 3     3   56 use 5.005;
  3         10  
  3         121  
4 3     3   19 use strict;
  3         5  
  3         120  
5              
6 3     3   15 use vars qw{$VERSION};
  3         5  
  3         166  
7             BEGIN {
8 3     3   376 $VERSION = '0.60';
9             }
10              
11              
12              
13              
14              
15             #####################################################################
16             # Constructor and Accessors
17              
18             sub new {
19 0     0 0   my $class = shift;
20 0           my $self = bless { @_ }, $class;
21 0           $self->_init;
22 0           $self;
23             }
24              
25             sub _init {
26 0     0     my $self = shift;
27              
28 0           1;
29             }
30              
31             sub scheme {
32 0     0 0   $_[0]->{scheme};
33             }
34              
35             sub path {
36 0     0 0   $_[0]->{path};
37             }
38              
39             1;