File Coverage

blib/lib/File/Revision.pm

Criterion	Covered	Total	%
statement	30	30	100.0
branch			n/a
condition			n/a
subroutine	10	10	100.0
pod			n/a
total	40	40	100.0

#!perl
#
# The copyright notice and plain old documentation (POD)
# are at the end of this file.
#
package  File::Revision;

require 5.001;

use strict;
use warnings;
use warnings::register;
use File::Spec;
use Data::Startup;

use vars qw($VERSION $DATE);
$VERSION = '1.04';
$DATE = '2004/05/03';

use vars qw($revision_letters $revision_base);
$revision_letters = 'ABCDEFGHJKLMNPRTUVWY';
$revision_base = length($revision_letters);

use vars qw(@ISA @EXPORT_OK);
use Exporter;
@ISA = qw(Exporter);
@EXPORT_OK = qw(new_revision num2revision parse_options revision2num revision_file rotate);

use SelfLoader;

1;

__DATA__