File Coverage

blib/lib/Metabrik/String/Rot13.pm
Criterion Covered Total %
statement 9 19 47.3
branch 0 4 0.0
condition n/a
subroutine 3 6 50.0
pod 1 3 33.3
total 13 32 40.6


line stmt bran cond sub pod time code
1             #
2             # $Id$
3             #
4             # string::rot13 Brik
5             #
6             package Metabrik::String::Rot13;
7 1     1   775 use strict;
  1         3  
  1         27  
8 1     1   5 use warnings;
  1         2  
  1         58  
9              
10 1     1   8 use base qw(Metabrik);
  1         2  
  1         250  
11              
12             sub brik_properties {
13             return {
14 0     0 1   revision => '$Revision$',
15             tags => [ qw(unstable encode decode) ],
16             author => 'GomoR ',
17             license => 'http://opensource.org/licenses/BSD-3-Clause',
18             commands => {
19             encode => [ qw($data) ],
20             decode => [ qw($data) ],
21             },
22             };
23             }
24              
25             sub encode {
26 0     0 0   my $self = shift;
27 0           my ($data) = @_;
28              
29 0 0         $self->brik_help_run_undef_arg('encode', $data) or return;
30              
31 0           (my $encoded = $data) =~ tr/n-za-m/a-z/;
32              
33 0           return $encoded;
34             }
35              
36             sub decode {
37 0     0 0   my $self = shift;
38 0           my ($data) = @_;
39              
40 0 0         $self->brik_help_run_undef_arg('decode', $data) or return;
41              
42 0           return $self->encode($data);
43             }
44              
45             1;
46              
47             __END__