File Coverage

blib/lib/POD2/ES.pm

Criterion	Covered	Total	%
statement	19	36	52.7
branch	0	12	0.0
condition			n/a
subroutine	7	10	70.0
pod	4	4	100.0
total	30	62	48.3

package POD2::ES;
use utf8;
use strict;
use warnings;
use open ':utf8';
use base 'Exporter';
use base 'POD2::Base';

our $VERSION = '5.24.0.2_2';

our @EXPORT = qw(print_pod print_pods);

# Versions list
sub pod_info {{
        perl              => '5.24.0',
        perlbook          => '5.24.0',
        perlboot          => '5.24.0',
        perlbot           => '5.24.0',
        #perlcheat         => '5.24.0',
        #perlclib          => '5.24.0',
        perlcommunity     => '5.24.0',
        #perldata          => '5.24.0',
        perldbmfilter     => '5.24.0',
        perldoc           => '5.24.0',
        #perlexperiment    => '5.24.0',
        perlfaq1          => '5.24.0',
        perlfaq2          => '5.24.0',
        perlfreebsd       => '5.24.0',
        perlfunc          => '5.24.0',
        #perlgit           => '5.24.0',
        #perlglossary      => '5.24.0',
        perlhacktut       => '5.24.0',
        #perlhist          => '5.24.0',
        perlhurd          => '5.24.0',
        perlintro         => '5.24.0',
        perlmod           => '5.24.0',
        perlmodinstall    => '5.24.0',
        perlmroapi        => '5.24.0',
        perlnewmod        => '5.24.0',
        perlnumber        => '5.24.0',
        perlobj           => '5.24.0',
        perlootut         => '5.24.0',
        perlop            => '5.24.0',
        perlopenbsd       => '5.24.0',
        perlopentut       => '5.24.0',
        perlpragma        => '5.24.0',
        #perlre            => '5.24.0',
        perlsource        => '5.24.0',
        perlstyle         => '5.24.0',
        perltodo          => '5.24.0',
        perltooc          => '5.24.0',
        perltoot          => '5.24.0',
        perlunifaq        => '5.24.0',
        perlunitut        => '5.24.0',
        perlutil          => '5.24.0',
}};

# String for perldoc with -L switch
sub search_perlfunc_re {
    return 'Lista de funciones de Perl en orden';
}

# Print information about a pod file
sub print_pod {
    my $self = shift;

    my @args = @_ ? @_ : @ARGV;

    unless (ref $self) {
        if (defined $self) {
            if ($self ne __PACKAGE__) {
                unshift @args, $self;
                $self = __PACKAGE__;
            }
        }
        else {
            $self = __PACKAGE__;
        }
    }

    my $pods = $self->pod_info;

    while (@args) {
        (my $pod = lc(shift @args)) =~ s/\.pod$//;
        if ( exists $pods->{$pod} ) {
            print "\t'$pod' traducido correspondiente a Perl $pods->{$pod}\n";
        }
        else {
            print "\t'$pod' todavía no existe\n";
        }
    }
}

# Print list of translated pods
sub print_pods {
    my $self = @_ ?  shift : __PACKAGE__;

    $self->SUPER::print_pods;
}

1;

__END__