Merge the I/O buffering branch
[imager.git] / t / Pod / Coverage / Imager.pm
1 package Pod::Coverage::Imager;
2 use strict;
3 use base 'Pod::Coverage';
4
5 sub _get_pods {
6   my $self = shift;
7
8   my $package = $self->{package};
9
10   #print "getting pod location for '$package'\n" if TRACE_ALL;
11   $self->{pod_from} ||= pod_where( { -inc => 1 }, $package );
12
13   my $pod_from = $self->{pod_from};
14   $pod_from = [ $pod_from ] unless ref $pod_from;
15   unless ($pod_from) {
16     $self->{why_unrated} = "couldn't find pod";
17     return;
18   }
19   
20   #print "parsing '$pod_from'\n" if TRACE_ALL;
21   my $pod = Pod::Coverage::Extractor->new;
22   for my $pod_file (@$pod_from) {
23     $pod->parse_from_file( $pod_file, '/dev/null' );
24   }
25   
26   return $pod->{identifiers} || [];
27 }
28
29 sub _get_syms {
30   my ($self, $package) = @_;
31
32   if ($self->{module}) {
33     eval "require $self->{module}";
34     return if $@;
35
36     # fake out require
37     (my $file = $package) =~ s(::)(/)g;
38     $file .= ".pm";
39     $INC{$file} = 1;
40   }
41
42   return $self->SUPER::_get_syms($package);
43 }
44
45 1;