File Coverage

lib/Object/Wrapper/Fork.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch	3	4	75.0
condition			n/a
subroutine	7	7	100.0
pod	1	1	100.0
total	36	37	97.3

########################################################################
# housekeeping
########################################################################

package Object::Wrapper::Fork;

use 5.8.0;
use strict;
use parent qw( Object::Wrapper );

use Carp            qw( croak confess );
use Scalar::Util    qw( blessed );

########################################################################
# package variables
########################################################################

our $VERSION    = 0.01;

our $AUTOLOAD   = '';

########################################################################
# utility subs
########################################################################

AUTOLOAD
{
    my $franger = shift;
    my ( $obj, $pid ) = @$franger;

    $pid == $$
    or confess "Bogus $AUTOLOAD: @{ $franger } crosses fork.";

    my $i       = rindex $AUTOLOAD, '::';
    my $name    = substr $AUTOLOAD, 2 + $i;

    my $sub     = $obj->can( $name )
    or confess "Bogus $AUTOLOAD: '$obj' cannot '$name'";

    $obj->$sub( @_ )
}

########################################################################
# public interface
########################################################################

sub new
{
    splice @_, 2, 0, $$;

    goto &Object::Wrapper::new
}

# keep require happy

1

__END__