⚝
One Hat Cyber Team
⚝
Your IP:
216.73.216.184
Server IP:
65.21.180.239
Server:
Linux gowhm.eplangoweb.com 5.4.0-216-generic #236-Ubuntu SMP Fri Apr 11 19:53:21 UTC 2025 x86_64
Server Software:
Apache
PHP Version:
8.0.30
Buat File
|
Buat Folder
Eksekusi
Dir :
~
/
proc
/
self
/
root
/
usr
/
share
/
perl5
/
Data
/
Perl
/
Edit File: Number.pm
package Data::Perl::Number; $Data::Perl::Number::VERSION = '0.002011'; # ABSTRACT: Wrapping class for Perl scalar numbers. use strictures 1; use Role::Tiny::With; with 'Data::Perl::Role::Number'; 1; =pod =encoding UTF-8 =head1 NAME Data::Perl::Number - Wrapping class for Perl scalar numbers. =head1 VERSION version 0.002011 =head1 SYNOPSIS use Data::Perl qw/number/; my $num = number(123); $num->add(5); # $num == 128 $num->div(2); # $num == 64 =head1 DESCRIPTION This class is a simple consumer of the L<Data::Perl::Role::Number> 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
Simpan