File Coverage

blib/lib/POD2/IT.pm

Criterion	Covered	Total	%
statement	12	24	50.0
branch	0	4	0.0
condition			n/a
subroutine	4	9	44.4
pod	5	5	100.0
total	21	42	50.0

package POD2::IT;

use 5.005;
use strict;
use vars qw($VERSION);
$VERSION = '0.13';

use base qw(Exporter);
our @EXPORT = qw(print_pod print_pods search_perlfunc_re new pod_dirs);

my $pods = {
	perl => '5.8.8',
	perlbook => '5.8.8',
	perlboot => '5.8.8',
	perlbot => '5.8.8',
	perlcheat => '5.8.8',
	perldata => '5.8.8',
	perlembed => '5.8.8',
	perlfaq => '5.8.8',
	perlfaq1 => '5.8.8',
	perlfaq2 => '5.8.8',
	perlfaq3 => '5.8.8',
	perlfaq4 => '5.8.8',
	perlfaq5 => '5.8.8',
	perlfaq6 => '5.8.8',
	perlfaq7 => '5.8.8',
	perlfaq8 => '5.8.8',
	perlfaq9 => '5.8.8',
	perlfork => '5.8.8',
	perlfunc => '5.8.8',
	perlintro => '5.8.8',
	perlipc => '5.8.8',
	perllol => '5.8.8',
	perlmod => '5.8.8',
	perlmodinstall => '5.8.8',
	perlmodstyle => '5.8.8',
	perlnewmod => '5.8.8',
	perlopentut => '5.8.8',
	perlpacktut => '5.8.8',
	perlref => '5.8.8',
	perlreftut => '5.8.8',
	perlrequick => '5.8.8',
	perlreref => '5.8.8',
	perlstyle => '5.8.8',
	perlsub => '5.8.8',
	perlsyn => '5.8.8',
	perlthrtut => '5.8.8',
	perltoot => '5.8.8',
	perlunicode => '5.8.8',
	perluniintro => '5.8.8',
	perlvar => '5.8.8',
	perlxstut => '5.8.8',
};

sub new {
	return __PACKAGE__;
}

sub pod_dirs {
	( my $mod = __PACKAGE__ . '.pm' ) =~ s|::|/|g;
	( my $dir = $INC{$mod} ) =~ s/\.pm\z//;
	return $dir;
}

sub print_pods {
	print_pod(sort keys %$pods);
}

sub print_pod {
	my @args = @_ ? @_ : @ARGV;

	while (@args) {
		(my $pod = lc(shift @args)) =~ s/\.pod$//;
		if ( exists $pods->{$pod} ) {
			print "\t'$pod' translated from Perl $pods->{$pod}\n";
		}
		else {
			print "\t'$pod' doesn't yet exists\n";
		}
	}
}

sub search_perlfunc_re {
	return 'Elenco delle funzioni Perl in ordine alfabetico';
}

1;
__END__