Gecko [ www.vortexaion.com ]

Windows NT KAMIDAKI 10.0 build 19045 (Windows 10) AMD64
Apache/2.4.58 (Win64) OpenSSL/3.1.3 PHP/8.3.9
Server IP : 192.168.3.16 & Your IP : 216.73.216.140
Domains : Cant Read [ /etc/named.conf ]
User : SISTEMA

Name	Size	Permission	Date
CountParents.pm	1.67 KB	-rw-rw-rw-	2010-07-27 17:10
ExportOnly.pm	1.23 KB	-rw-rw-rw-	2012-02-07 12:58
Overloader.pm	736 B	-rw-rw-rw-	2012-02-07 12:58

Rename

package Pod::Coverage::ExportOnly;
use strict;
use Pod::Coverage ();
use base qw(Pod::Coverage);

sub _get_syms {
    my $self = shift;
    my $package = shift;

# lifted from UNIVERSAL::exports
    no strict 'refs';
    my %exports = map { $_ => 1 } @{$package.'::EXPORT'}, 
                                  @{$package.'::EXPORT_OK'};

return keys %exports;
}

1;
__END__

=head1 NAME

Pod::Coverage::ExportOnly - subclass of Pod::Coverage than only examines exported functions

=head1 SYNOPSIS

# all in one invocation
  use Pod::Coverage::ExportOnly package => 'Fishy';

# straight OO
  use Pod::Coverage::ExportOnly;
  my $pc = new Pod::Coverage::ExportOnly package => 'Pod::Coverage';
  print "We rock!" if $pc->coverage == 1;

=head1 DESCRIPTION

This module extends Pod::Coverage to only check things explicitly set
up for export by the Exporter or UNIVERSAL::exports modules.  If you
want full documentation we suggest you check the L<Pod::Coverage>
documentation

=head1 SEE ALSO

L<Pod::Coverage>, L<Exporter>, L<UNIVERSAL::exports>

=head1 AUTHORS

=cut