File Coverage

lib/App/Muter/Backend/Uuencode.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 1 4 25.0
total 22 25 88.0


line stmt bran cond sub pod time code
1             package App::Muter::Backend::Uuencode;
2             # ABSTRACT: a uuencode transform for App::Muter
3             $App::Muter::Backend::Uuencode::VERSION = '0.002001';
4 3     3   18 use strict;
  3         6  
  3         152  
5 3     3   15 use warnings;
  3         6  
  3         483  
6              
7             our @ISA = qw/App::Muter::Backend::Chunked/;
8              
9             sub new {
10 514     514 1 1528 my ($class, $args, %opts) = @_;
11 514         2008 my $self = $class->SUPER::new(
12             $args, %opts,
13             enchunksize => 45,
14             dechunksize => 62,
15             );
16 514         2039 return $self;
17             }
18              
19             sub encode_chunk { ## no critic(RequireArgUnpacking)
20 2772     2772 0 5413 my ($self, $data) = @_;
21 2772         12003 return pack('u', $data);
22             }
23              
24             sub encode_final {
25 266     266 0 529 my ($self, $data) = @_;
26 266         805 return $self->SUPER::encode_final($data) . "`\n";
27             }
28              
29             sub decode_chunk {
30 1220     1220 0 2336 my ($self, $data) = @_;
31 1220         5726 return unpack('u', $data);
32             }
33              
34             App::Muter::Registry->instance->register(__PACKAGE__);
35              
36             1;
37              
38             __END__
39              
40             =pod
41              
42             =encoding UTF-8
43              
44             =head1 NAME
45              
46             App::Muter::Backend::Uuencode - a uuencode transform for App::Muter
47              
48             =head1 VERSION
49              
50             version 0.002001
51              
52             =head1 AUTHOR
53              
54             brian m. carlson <sandals@crustytoothpaste.net>
55              
56             =head1 COPYRIGHT AND LICENSE
57              
58             This software is Copyright (c) 2016–2017 by brian m. carlson.
59              
60             This is free software, licensed under:
61              
62             The MIT (X11) License
63              
64             =cut