File Coverage

blib/lib/Eixo/Base/Singleton.pm

Criterion	Covered	Total	%
statement	52	53	98.1
branch	14	18	77.7
condition			n/a
subroutine	11	12	91.6
pod	0	2	0.0
total	77	85	90.5

package Eixo::Base::Singleton;

use strict;
use Eixo::Base::Clase;

sub make_singleton{
    my ($clase, %args) = @_;

    no strict 'refs';

        no warnings 'redefine';

    return if(defined(&{$clase . '::SINGLETON'}));

    my $instance = $clase->new(%args);

    *{$clase . '::SINGLETON'} = sub {

        return $instance;

    };

    *{$clase . '::AUTOLOAD'} = sub {

        my ($attribute) = our $AUTOLOAD =~ /\:(\w+)$/;

        if(my $method = $instance->can('__' . $attribute)){

            $instance->$method(@_[1..$#_]);

        }
        else{
            die($AUTOLOAD . ' method not found');
        }

    };

    if($instance->can('initialize')){

        $instance->initialize();
    }

    if( ! $instance->can("DESTROY")){

        *{$clase . '::DESTROY'} = sub {}

    }

    $instance;
}

sub new{
    my ($class, @args) = @_;

    my $self = ($class->can('SINGLETON')) ? $class->SINGLETON : undef;

    if($self){
        $self->__chainInitialize;

        $self->initialize(@args);
    }
    else{
        $self = bless({}, $class);

        $self->__chainInitialize;

        $self->__initialize if($self->can('__initialize'));

    }


    $self;

}



sub __createSetterGetter{
    my ($class, $attribute, $value) = @_;

    no strict 'refs';

    unless(defined(&{$class . '::__' . $attribute})){

        *{$class . '::__' . $attribute} = sub {

            my ($self, $value)  = @_;

            if(defined($value)){

                $self->{$attribute} = $value;

                $self;
            }
            else{

                $self->{$attribute};
            }

        };

    }
}


1;