File Coverage

blib/lib/Alien/CodePress/Archive.pm
Criterion Covered Total %
statement 19 22 86.3
branch n/a
condition n/a
subroutine 7 8 87.5
pod 3 3 100.0
total 29 33 87.8


line stmt bran cond sub pod time code
1             # $Id$
2             # $Source$
3             # $Author$
4             # $HeadURL$
5             # $Revision$
6             # $Date$
7             package Alien::CodePress::Archive;
8              
9 2     2   11 use strict;
  2         4  
  2         80  
10 2     2   13 use warnings;
  2         3  
  2         71  
11 2     2   59 use 5.00600;
  2         7  
  2         84  
12              
13 2     2   10 use Carp;
  2         4  
  2         162  
14 2     2   10 use vars qw($VERSION);
  2         3  
  2         374  
15              
16             $VERSION = 1.03;
17              
18             my $CODEPRESS_VERSION = '0.9.6';
19              
20             my $CODEPRESS_URL = 'http://codepress.org/download/';
21              
22             my $CODEPRESS_FILE_FMT = 'codepress-v.%s.zip';
23              
24             sub version {
25 1     1 1 8 return $CODEPRESS_VERSION;
26             }
27              
28              
29             sub filename {
30 3     3 1 17 my ($class) = @_;
31              
32 3         24 my $filename = sprintf $CODEPRESS_FILE_FMT, $CODEPRESS_VERSION;
33              
34 3         71 return $filename;
35             }
36              
37             sub url {
38 0     0 1   my ($class) = @_;
39              
40 0           my $url = $CODEPRESS_URL . $class->filename();
41              
42 0           return $url;
43             }
44              
45             1;
46              
47             __END__