File Coverage

blib/script/rot13
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 11 11 100.0


line stmt bran cond sub pod time code
1             #!/usr/local/bin/perl
2 4     4   20343 use warnings;
  4         7  
  4         258  
3 4     4   21 use strict;
  4         7  
  4         5173  
4              
5             =begin metadata
6              
7             Name: rot13
8             Description: Rotate the Latin letters by 13 positions
9             Author: Mark Rosetta (@marked on GitHub)
10             Contributor: brian d foy, bdfoy@cpan.org
11             License: artistic2
12              
13             =end metadata
14              
15             =cut
16              
17 4         683522 while ( <> ) {
18 5         37 tr/A-Za-z/N-ZA-Mn-za-m/;
19 5         41 print;
20             };