File Coverage

blib/lib/Sprocket/Local.pm

Criterion	Covered	Total	%
statement	32	38	84.2
branch	4	10	40.0
condition	2	9	22.2
subroutine	8	10	80.0
pod	0	3	0.0
total	46	70	65.7

package Sprocket::Local;

use warnings;
use strict;

use Sprocket qw( Local::Connection );
use Carp qw( croak );

use vars qw( $sprocket_local );

sub import {
    my ( $class, $args ) = @_;
    my $package = caller();

    croak "Sprocket::Local expects its arguments in a hash ref"
        if ( $args && ref( $args ) ne 'HASH' );

    unless ( delete $args->{no_auto_export} ) {
        {
            no strict 'refs';
            *{ $package . '::sprocket_local' } = \$sprocket_local;
        }
    }

    return if ( delete $args->{no_auto_bootstrap} );

    # bootstrap
    Sprocket::Local->new( %$args );

    return;
}

sub new {
    return $sprocket_local if ( $sprocket_local );
    my $class = shift;

    my $self = $sprocket_local = bless({
        @_,
        pak => { }, # hash of hashes, packages => ids => objects
    }, ref $class || $class );

    return $self;
}

sub new_connection {
    my ( $self, $obj, $id ) = @_;

    my $con = $self->{pak}->{$obj}->{$id} =
    Sprocket::Local::Connection->new(
#        parent_id => $self->{session_id},
        __parent_plugin => $obj,
        __id => $id,
    );

    return $con;
}

sub get_connection {
    my ( $self, $obj, $id ) = @_;
    my $pk = $self->{pak}->{ $obj };
    return ( $pk && $pk->{ $id } ) ? $pk->{ $id } : $self->new_connection( $obj, $id );
}

1;