diff options
Diffstat (limited to 'chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/Pod/Coverage')
3 files changed, 167 insertions, 0 deletions
diff --git a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/Pod/Coverage/CountParents.pm b/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/Pod/Coverage/CountParents.pm new file mode 100644 index 00000000000..08931e79c3f --- /dev/null +++ b/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/Pod/Coverage/CountParents.pm @@ -0,0 +1,77 @@ +package Pod::Coverage::CountParents; +use strict; +use Pod::Coverage (); +use base 'Pod::Coverage'; + +# this code considered lightly fugly :) + +sub _get_pods { + my $self = shift; + my $package = $self->{package}; + + eval qq{ require $package }; + if ($@) { + $self->{why_unrated} = "Couldn't compile '$package' to inspect: $@"; + return; + } + + my %pods; + $pods{$package} = $self->SUPER::_get_pods; + + __walk_up($package, \%pods); + my %flat = map { $_ => 1 } map { @{ $_ || [] } } values %pods; + return [ keys %flat ]; +} + +sub __walk_up { + my $package = shift; + my $pods = shift; + + $pods->{$package} = Pod::Coverage->new(package => $package)->_get_pods(); + + my @parents; + { + no strict 'refs'; + @parents = @{"$package\::ISA"}; + } + + do { $pods->{$_} || __walk_up($_, $pods) } for @parents; +} + +1; +__END__ + + +=head1 NAME + +Pod::Coverage::CountParents - subclass of Pod::Coverage that examines the inheritance tree + +=head1 SYNOPSIS + + # all in one invocation + use Pod::Coverage::CountParents package => 'Fishy'; + + # straight OO + use Pod::Coverage::CountParents; + my $pc = new Pod::Coverage::CountParents package => 'Pod::Coverage'; + print "We rock!" if $pc->coverage == 1; + +=head1 DESCRIPTION + +This module extends Pod::Coverage to include the documentation from +parent classes when identifying the coverage of the code. + +If you want full documentation we suggest you check the +L<Pod::Coverage> documentation. + +=head1 SEE ALSO + +L<Pod::Coverage>, L<base> + +=head1 AUTHOR + +Copyright (c) 2002 Richard Clamp. All rights reserved. This program +is free software; you can redistribute it and/or modify it under the +same terms as Perl itself. + +=cut diff --git a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/Pod/Coverage/ExportOnly.pm b/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/Pod/Coverage/ExportOnly.pm new file mode 100644 index 00000000000..df979b1d14b --- /dev/null +++ b/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/Pod/Coverage/ExportOnly.pm @@ -0,0 +1,53 @@ +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 + +Copyright (c) 2001 Richard Clamp, Micheal Stevens. All rights +reserved. This program is free software; you can redistribute it +and/or modify it under the same terms as Perl itself. + +=cut + diff --git a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/Pod/Coverage/Overloader.pm b/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/Pod/Coverage/Overloader.pm new file mode 100644 index 00000000000..fb09af8ac92 --- /dev/null +++ b/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/Pod/Coverage/Overloader.pm @@ -0,0 +1,37 @@ +package Pod::Coverage::Overloader; +use strict; +use Pod::Coverage (); +use base qw(Pod::Coverage); + +sub new { + my $class = shift; + + warn "Pod::Coverage::Overloader is deprecated. Please use Pod::Coverage instead"; + $class->SUPER::new( @_ ); +} + +1; +__END__ + +=head1 NAME + +Pod::Coverage::Overloader - deprecated subclass of Pod::Coverage + +=head1 SYNOPSIS + + # Please do not use this module, it was an experiment that went + # awry. Use Pod::Coverage instead + +=head1 DESCRIPTION + +=head1 SEE ALSO + +L<Pod::Coverage>, L<overload> + +=head1 AUTHORS + +Copyright (c) 2001 Richard Clamp, Micheal Stevens. All rights +reserved. This program is free software; you can redistribute it +and/or modify it under the same terms as Perl itself. + +=cut |