File Coverage

blib/lib/Data/Perl/Counter.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::Counter;
2             $Data::Perl::Counter::VERSION = '0.002011';
3             # ABSTRACT: Wrapping class for a simple numeric counter.
4              
5 9     9   61 use strictures 1;
  9         57  
  9         329  
6              
7 9     9   781 use Role::Tiny::With;
  9         16  
  9         608  
8              
9             with 'Data::Perl::Role::Counter';
10              
11             1;
12              
13             =pod
14              
15             =encoding UTF-8
16              
17             =head1 NAME
18              
19             Data::Perl::Counter - Wrapping class for a simple numeric counter.
20              
21             =head1 VERSION
22              
23             version 0.002011
24              
25             =head1 SYNOPSIS
26              
27             use Data::Perl qw/counter/;
28              
29             my $c = counter(4);
30              
31             $c->inc; # $c == 5
32              
33             $c->reset; # $c == 0
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__