File Coverage

blib/lib/Articulate/Sortation/Numeric.pm
Criterion Covered Total %
statement 9 11 81.8
branch n/a
condition n/a
subroutine 3 4 75.0
pod 1 1 100.0
total 13 16 81.2


line stmt bran cond sub pod time code
1             package Articulate::Sortation::Numeric;
2 1     1   1580 use strict;
  1         2  
  1         34  
3 1     1   3 use warnings;
  1         1  
  1         20  
4              
5 1     1   3 use Moo;
  1         1  
  1         4  
6             with 'Articulate::Role::Sortation::AllYouNeedIsCmp';
7              
8             =head1 NAME
9              
10             Articulate::Sortation::Numeric - sort strings using the spaceship
11             operator
12              
13             =head1 DESCRIPTION
14              
15             This implements the L
16             role to provide a very basic numerical sorter object.
17              
18             =head1 METHODS
19              
20             One method provided here, the rest are as in
21             L.
22              
23             =head3 cmp
24              
25             $self->cmp($a, $b); # returns $a <=> $b
26              
27             =cut
28              
29             sub cmp {
30 0     0 1   my $self = shift;
31 0           return ( $_[0] <=> $_[1] );
32             }
33              
34             =head1 SEE ALSO
35              
36             =over
37              
38             =item * L
39              
40             =item * L
41              
42             =back
43              
44             =cut
45              
46             1;