File Coverage

blib/lib/autobox/Numeric/Bytes.pm
Criterion Covered Total %
statement 23 23 100.0
branch n/a
condition n/a
subroutine 13 13 100.0
pod n/a
total 36 36 100.0


line stmt bran cond sub pod time code
1             package autobox::Numeric::Bytes;
2              
3 2     2   826 use strict;
  2         3  
  2         80  
4 2     2   12 use warnings;
  2         11  
  2         54  
5 2     2   10 use Carp;
  2         3  
  2         168  
6              
7 2     2   3326 use bigint;
  2         9734  
  2         11  
8 2     2   113795 use base qw(autobox);
  2         42  
  2         1233  
9              
10             our $VERSION = '0.02';
11              
12             sub import {
13 16     16   150 shift->SUPER::import(NUMBER => 'autobox::Numeric::Bytes::Impl', @_);
14             }
15              
16             package # hide from pause
17             autobox::Numeric::Bytes::Impl;
18              
19             sub bytes {
20 2     2   16 return $_[0];
21             }
22             *byte = \&bytes;
23              
24             sub kilobytes {
25 2     2   83 return $_[0] * 1024;
26             }
27             *kilobyte = \&kilobytes;
28              
29             sub megabytes {
30 2     2   12 return $_[0] * 1024 * 1024;
31             }
32             *megabyte = \&megabytes;
33              
34             sub gigabytes {
35 2     2   13 return $_[0] * 1024 * 1024 * 1024;
36             }
37             *gigabyte = \&gigabytes;
38              
39             sub terabytes {
40 2     2   11 return $_[0] * 1024 * 1024 * 1024 * 1024;
41             }
42             *terabyte = \&terabytes;
43              
44             sub petabytes {
45 2     2   19 return $_[0] * 1024 * 1024 * 1024 * 1024 * 1024;
46             }
47             *petabyte = \&petabytes;
48              
49             sub exabytes {
50 2     2   9 return $_[0] * 1024 * 1024 * 1024 * 1024 * 1024 * 1024;
51             }
52             *exabyte = \&exabytes;
53              
54             1;
55              
56             __END__