File Coverage

blib/lib/Mail/Audit/MailInternet.pm

Criterion	Covered	Total	%
statement	14	17	82.3
branch			n/a
condition	1	3	33.3
subroutine	5	6	83.3
pod	2	2	100.0
total	22	28	78.5

use strict;
package Mail::Audit::MailInternet;
{
  $Mail::Audit::MailInternet::VERSION = '2.228';
}
# ABSTRACT: a Mail::Internet-based Mail::Audit object

use Mail::Internet;
use parent qw(Mail::Audit Mail::Internet);

sub _autotype_new {
  my $class = shift;
  my $self  = shift;
  bless($self, $class);
}

sub new {
  my $class = shift;
  my $type  = ref($class) || $class;

  # we want to create a subclass of Mail::Internet
  # call M::I's constructor
  my $self = Mail::Internet->new(@_);

  # now rebless it into this class
  bless $self, $type;
}

sub is_mime { 0; }

1;

__END__