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   7647 use strict;
  13         23  
  13         377  
3 13     13   66 use warnings;
  13         18  
  13         653  
4             require Exporter;
5             require DynaLoader;
6             our @ISA = qw(Exporter DynaLoader);
7              
8 13     13   72 use SDL::Internal::Loader;
  13         24  
  13         1056  
9             internal_load_dlls(__PACKAGE__);
10              
11 13         138 use overload '<=>' => \&my_cmp,
12 13     13   104 '""' => \&stringify;
  13         40  
13              
14             our $VERSION = 2.548;
15              
16             bootstrap SDL::Version;
17              
18             sub stringify {
19 9     9 0 48 my $self = shift;
20 9         105 return sprintf "%s%s%s", chr($self->major), chr($self->minor), chr($self->patch);
21             }
22              
23             sub my_cmp {
24 9     9 0 5922912 my ($left, $right) = @_;
25 9         27 return "$left" cmp "$right";
26             }
27              
28             1;