File Coverage

blib/lib/SDL/Version.pm
Criterion Covered Total %
statement 16 16 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 0 2 0.0
total 22 24 91.6


line stmt bran cond sub pod time code
1             package SDL::Version;
2 13     13   11445 use strict;
  13         33  
  13         485  
3 13     13   70 use warnings;
  13         24  
  13         719  
4             require Exporter;
5             require DynaLoader;
6             our @ISA = qw(Exporter DynaLoader);
7              
8 13     13   73 use SDL::Internal::Loader;
  13         20  
  13         1134  
9             internal_load_dlls(__PACKAGE__);
10              
11 13         171 use overload '<=>' => \&my_cmp,
12 13     13   243 '""' => \&stringify;
  13         27  
13              
14             bootstrap SDL::Version;
15              
16             sub stringify {
17 9     9 0 17 my $self = shift;
18 9         175 return sprintf "%s%s%s", chr($self->major), chr($self->minor), chr($self->patch);
19             }
20              
21             sub my_cmp {
22 9     9 0 4590092 my ($left, $right) = @_;
23 9         40 return "$left" cmp "$right";
24             }
25              
26             1;