File Coverage

blib/lib/Mail/Audit/Util/Tempdir.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	1	2	50.0
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	25	26	96.1

use strict;
use warnings;
package Mail::Audit::Util::Tempdir;
{
  $Mail::Audit::Util::Tempdir::VERSION = '2.228';
}
require File::Tempdir;
use parent 'File::Tempdir';
# ABSTRACT: self-cleaning fork-respecting tempdirs

sub new {
  my $class = shift;
  my $self = $class->SUPER::new(@_);
  $self->{'Mail::Audit'}{pid} = $$;
  return $self;
}

sub DESTROY {
  return unless do {
    local $@;
    eval { $_[0]->{'Mail::Audit'}{pid} == $$ };
  };
  $_[0]->SUPER::DESTROY;
}

1;

__END__