Linux cpanel.rrshost.in 5.15.0-25-generic #25-Ubuntu SMP Wed Mar 30 15:54:22 UTC 2022 x86_64
Apache
: 109.123.238.221 | : 108.162.241.75
128 Domain
8.2.28
aev999
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
perl5 /
Data /
Perl /
[ HOME SHELL ]
Name
Size
Permission
Action
Bool
[ DIR ]
drwxr-xr-x
Collection
[ DIR ]
drwxr-xr-x
Number
[ DIR ]
drwxr-xr-x
Role
[ DIR ]
drwxr-xr-x
String
[ DIR ]
drwxr-xr-x
Bool.pm
908
B
-rw-r--r--
Code.pm
913
B
-rw-r--r--
Counter.pm
951
B
-rw-r--r--
Number.pm
951
B
-rw-r--r--
String.pm
946
B
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : Counter.pm
package Data::Perl::Counter; $Data::Perl::Counter::VERSION = '0.002011'; # ABSTRACT: Wrapping class for a simple numeric counter. use strictures 1; use Role::Tiny::With; with 'Data::Perl::Role::Counter'; 1; =pod =encoding UTF-8 =head1 NAME Data::Perl::Counter - Wrapping class for a simple numeric counter. =head1 VERSION version 0.002011 =head1 SYNOPSIS use Data::Perl qw/counter/; my $c = counter(4); $c->inc; # $c == 5 $c->reset; # $c == 0 =head1 DESCRIPTION This class is a simple consumer of the L<Data::Perl::Role::Counter> role, which provides all functionality. You probably want to look there instead. =head1 AUTHOR Matthew Phillips <mattp@cpan.org> =head1 COPYRIGHT AND LICENSE This software is copyright (c) 2020 by Matthew Phillips <mattp@cpan.org>. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. =cut __END__ ==pod
Close
