File Coverage

blib/lib/Moose/Meta/Method/Accessor/Native/Counter/inc.pm
Criterion Covered Total %
statement 20 20 100.0
branch n/a
condition n/a
subroutine 8 8 100.0
pod n/a
total 28 28 100.0


line stmt bran cond sub pod time code
1             package Moose::Meta::Method::Accessor::Native::Counter::inc;
2             our $VERSION = '2.2203';
3              
4 4     4   2338 use strict;
  4         10  
  4         126  
5 4     4   22 use warnings;
  4         10  
  4         111  
6              
7 4     4   19 use Moose::Role;
  4         10  
  4         27  
8              
9             with 'Moose::Meta::Method::Accessor::Native::Writer';
10              
11 16     16   41 sub _minimum_arguments { 0 }
12 16     16   48 sub _maximum_arguments { 1 }
13              
14             sub _potential_value {
15 16     16   31 my $self = shift;
16 16         31 my ($slot_access) = @_;
17              
18 16         46 return $slot_access . ' + (defined $_[0] ? $_[0] : 1)';
19             }
20              
21             sub _inline_optimized_set_new_value {
22 8     8   19 my $self = shift;
23 8         21 my ($inv, $new, $slot_access) = @_;
24              
25 8         39 return $slot_access . ' += defined $_[0] ? $_[0] : 1;';
26             }
27              
28 4     4   37 no Moose::Role;
  4         11  
  4         40  
29              
30             1;