File Coverage

blib/lib/POD2/FR.pm

Criterion	Covered	Total	%
statement	12	20	60.0
branch	0	4	0.0
condition			n/a
subroutine	4	7	57.1
pod	3	3	100.0
total	19	34	55.8

package POD2::FR;

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

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

my $pods = {
	    perl => '5.10.0',
	    perl5004delta => '',
	    perl5005delta => '',
	    perl5100delta => '',
	    perl561delta => '',
	    perl56delta => '',
	    perl570delta => '',
	    perl571delta => '',
	    perl572delta => '',
	    perl573delta => '',
	    perl581delta => '',
	    perl582delta => '',
	    perl583delta => '',
	    perl584delta => '',
	    perl585delta => '',
	    perl586delta => '',
	    perl587delta => '',
	    perl588delta => '',
	    perl58delta => '',
	    perl590delta => '',
	    perl591delta => '',
	    perl592delta => '',
	    perl593delta => '',
	    perl594delta => '',
	    perl595delta => '',
	    perlaix => '',
	    perlamiga => '',
	    perlapi => '',
	    perlapio => '5.00502',
	    perlapollo => '',
	    perlartistic => '5.10.0',
	    perlbeos => '',
	    perlbook => '5.10.0',
	    perlboot => '5.10.0',
	    perlbot => '5.10.0',
	    perlbs2000 => '',
	    perlcall => '',
	    perlce => '',
	    perlcheat => '5.8.8',
	    perlclib => '',
	    perlcn => '',
	    perlcommunity => '',
	    perlcompile => '',
	    perlcygwin => '',
	    perldata => '5.10.0',
	    perldbmfilter => '',
	    perldebguts => '5.6.0',
	    perldebtut => '5.10.0',
	    perldebug => '5.6.0',
	    perldelta => '',
	    perldgux => '',
	    perldiag => '5.00502',
	    perldoc => '',
	    perldos => '',
	    perldsc => '5.10.0',
	    perlebcdic => '',
	    perlembed => '5.00502',
	    perlepoc => '',
	    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',
	    perlfilter => '',
	    perlfork => '',
	    perlform => '5.00502',
	    perlfreebsd => '',
	    perlfunc => '5.8.8',
	    perlglossary => '',
	    perlgpl => '',
	    perlguts => '',
	    perlhack => '',
	    perlhist => '5.10.0',
	    perlhpux => '',
	    perlhurd => '',
	    perlintern => '5.6.0',
	    perlintro => '5.10.0',
	    perliol => '',
	    perlipc => '5.6.0',
	    perlirix => '',
	    perljp => '',
	    perlko => '',
	    perllexwarn => '',
	    perllinux => '',
	    perllocale => '5.6.0',
	    perllol => '5.10.0',
	    perlmachten => '',
	    perlmacos => '',
	    perlmacosx => '',
	    perlmint => '',
	    perlmod => '5.00502',
	    perlmodinstall => '5.00502',
	    perlmodlib => '5.00502',
	    perlmodstyle => '',
	    perlmpeix => '',
	    perlnetware => '',
	    perlnewmod => '',
	    perlnumber => '5.10.0',
	    perlobj => '5.10.0',
	    perlop => '5.8.8',
	    perlopenbsd => '',
	    perlopentut => '5.10.0',
	    perlos2 => '',
	    perlos390 => '',
	    perlos400 => '',
	    perlothrtut => '',
	    perlpacktut => '',
	    perlplan9 => '',
	    perlpod => '5.10.0',
	    perlpodspec => '',
	    perlport => '5.00502',
	    perlpragma => '',
	    perlqnx => '',
	    perlre => '5.8.8',
	    perlreapi => '',
	    perlrebackslash => '',
	    perlrecharclass => '',
	    perlref => '5.8.8',
	    perlreftut => '5.10.0',
	    perlreguts => '',
	    perlrequick => '5.10.0',
	    perlreref => '5.8.8',
	    perlretut => '5.8.8',
	    perlriscos => '',
	    perlrun => '5.8.8',
	    perlsec => '5.10.0',
	    perlsolaris => '',
	    perlstyle => '5.10.0',
	    perlsub => '5.8.8',
	    perlsymbian => '',
	    perlsyn => '5.8.8',
	    perlthrtut => '5.8.0',
	    perltie => '5.10.0',
	    perltoc => '',
	    perltodo => '',
	    perltooc => '5.10.0',
	    perltoot => '5.10.0',
	    perltrap => '5.10.0',
	    perltru64 => '',
	    perltw => '',
	    perlunicode => '',
	    perlunifaq => '',
	    perluniintro => '5.8.8',
	    perlunitut => '',
	    perlutil => '5.8.8',
	    perluts => '',
	    perlvar => '5.8.8',
	    perlvmesa => '',
	    perlvms => '',
	    perlvos => '',
	    perlwin32 => '',
	    perlxs => '5.00502',
	    perlxstut => '5.00502',
	   };

foreach my $key (keys %$pods) {
  delete $pods->{$key} if $pods->{$key} eq '';
}

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 'Fonctions Perl par ordre alphabétique';
}

1;
__END__