File Coverage

blib/lib/HTML/Perlinfo.pm

Criterion	Covered	Total	%
statement	22	28	78.5
branch	0	4	0.0
condition	0	3	0.0
subroutine	8	9	88.8
pod	0	1	0.0
total	30	45	66.6

package HTML::Perlinfo;
BEGIN { %HTML::Perlinfo::Seen = %INC }

use strict;
use warnings;
use Carp ();

use HTML::Perlinfo::Apache;
use HTML::Perlinfo::Modules;
use HTML::Perlinfo::Common;

use base qw(Exporter HTML::Perlinfo::Base);
our @EXPORT = qw(perlinfo);

our $VERSION = '1.65';

sub perlinfo {
  my ($opt) = @_;
  $opt = 'INFO_ALL' unless $opt;

  error_msg("Invalid perlinfo() parameter: @_")
  if (($opt !~ /^INFO_(?:ALL|GENERAL|CONFIG|VARIABLES|APACHE|MODULES|LICENSE|LOADED)$/) || @_ > 1);

  $opt = lc $opt;
  my $p = HTML::Perlinfo->new();
  $p->$opt;

}
foreach my $key (%HTML::Perlinfo::Seen) {
    $INC{$key} = $HTML::Perlinfo::Seen{$key} unless exists $INC{$key};
}
1;
__END__