git.maemo.org Git - dh-make-perl/blob - dev/arm/libpod-coverage-perl/libpod-coverage-perl-0.19/debian/libpod-coverage-perl/usr/share/perl5/Pod/Coverage/ExportOnly.pm

   1 package Pod::Coverage::ExportOnly;
   2 use strict;
   3 use Pod::Coverage ();
   4 use base qw(Pod::Coverage);
   5
   6 sub _get_syms {
   7     my $self = shift;
   8     my $package = shift;
   9
  10     # lifted from UNIVERSAL::exports
  11     no strict 'refs';
  12     my %exports = map { $_ => 1 } @{$package.'::EXPORT'},
  13                                   @{$package.'::EXPORT_OK'};
  14
  15     return keys %exports;
  16 }
  17
  18 1;
  19 __END__
  20
  21 =head1 NAME
  22
  23 Pod::Coverage::ExportOnly - subclass of Pod::Coverage than only examines exported functions
  24
  25 =head1 SYNOPSIS
  26
  27   # all in one invocation
  28   use Pod::Coverage::ExportOnly package => 'Fishy';
  29
  30   # straight OO
  31   use Pod::Coverage::ExportOnly;
  32   my $pc = new Pod::Coverage::ExportOnly package => 'Pod::Coverage';
  33   print "We rock!" if $pc->coverage == 1;
  34
  35 =head1 DESCRIPTION
  36
  37 This module extends Pod::Coverage to only check things explicitly set
  38 up for export by the Exporter or UNIVERSAL::exports modules.  If you
  39 want full documentation we suggest you check the L<Pod::Coverage>
  40 documentation
  41
  42 =head1 SEE ALSO
  43
  44 L<Pod::Coverage>, L<Exporter>, L<UNIVERSAL::exports>
  45
  46 =head1 AUTHORS
  47
  48 Copyright (c) 2001 Richard Clamp, Micheal Stevens. All rights
  49 reserved.  This program is free software; you can redistribute it
  50 and/or modify it under the same terms as Perl itself.
  51
  52 =cut
  53