File Coverage

blib/lib/Data/Perl/Number.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 8 8 100.0


line stmt bran cond sub pod time code
1             package Data::Perl::Number;
2             $Data::Perl::Number::VERSION = '0.002011';
3             # ABSTRACT: Wrapping class for Perl scalar numbers.
4              
5 9     9   60 use strictures 1;
  9         57  
  9         307  
6              
7 9     9   757 use Role::Tiny::With;
  9         17  
  9         579  
8              
9             with 'Data::Perl::Role::Number';
10              
11             1;
12              
13             =pod
14              
15             =encoding UTF-8
16              
17             =head1 NAME
18              
19             Data::Perl::Number - Wrapping class for Perl scalar numbers.
20              
21             =head1 VERSION
22              
23             version 0.002011
24              
25             =head1 SYNOPSIS
26              
27             use Data::Perl qw/number/;
28              
29             my $num = number(123);
30              
31             $num->add(5); # $num == 128
32              
33             $num->div(2); # $num == 64
34              
35             =head1 DESCRIPTION
36              
37             This class is a simple consumer of the L role, which
38             provides all functionality. You probably want to look there instead.
39              
40             =head1 AUTHOR
41              
42             Matthew Phillips
43              
44             =head1 COPYRIGHT AND LICENSE
45              
46             This software is copyright (c) 2020 by Matthew Phillips .
47              
48             This is free software; you can redistribute it and/or modify it under
49             the same terms as the Perl 5 programming language system itself.
50              
51             =cut
52              
53             __END__