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

Pod-Coverage documentation Contained in the Pod-Coverage distribution.

Index

Code Index:

NAME

Top

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

SYNOPSIS

Top

  # 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;

DESCRIPTION

Top

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 Pod::Coverage documentation

SEE ALSO

Top

Pod::Coverage, Exporter, UNIVERSAL::exports

AUTHORS

Top

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.

Pod-Coverage documentation Contained in the Pod-Coverage distribution. 
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__