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   5173 use strict;
  13         19  
  13         316  
3 13     13   40 use warnings;
  13         11  
  13         456  
4             require Exporter;
5             require DynaLoader;
6             our @ISA = qw(Exporter DynaLoader);
7              
8 13     13   41 use SDL::Internal::Loader;
  13         13  
  13         689  
9             internal_load_dlls(__PACKAGE__);
10              
11 13         115 use overload '<=>' => \&my_cmp,
12 13     13   49 '""' => \&stringify;
  13         30  
13              
14             bootstrap SDL::Version;
15              
16             sub stringify {
17 9     9 0 23 my $self = shift;
18 9         109 return sprintf "%s%s%s", chr($self->major), chr($self->minor), chr($self->patch);
19             }
20              
21             sub my_cmp {
22 9     9 0 3002650 my ($left, $right) = @_;
23 9         22 return "$left" cmp "$right";
24             }
25              
26             1;