use strict;
use warnings;

package Segment;

sub new { 1 }
sub Describe { 1 }

package podcovtest;

sub new  { 1 }
sub Describe  { 1 }

sub Pod::Coverage::TRACE_ALL () { 1 }
use Pod::Coverage; 

foreach my $pkg ( qw( Segment podcovtest ) ){
		my $pc = Pod::Coverage->new(package => $pkg, pod_from => 'podcovtest.pm'); 
		print qq(OK $pkg\n) if $pc->coverage == 1; 
}

1;

=pod

=head1 NAME

Segment

=head2

Describe

=head1 NAME

podcovtest

=head2

new

=head2

Describe

=head1 VERSION


=head1 USAGE

=item C<new(%params)>

C<new(...)> creates a new ELF::File object and parses the Program Header table
and the Section Header table.

=item C<Describe()>

C<Describe()> returns a multi-line string describing the ELF file header
contents.


=cut