view release on metacpan or  search on metacpan

lib/Ambrosia/Utils/Container.pm  view on Meta::CPAN

sub clone
{
    my $self = shift;

    if ( @_ )
    {#deep clone
        return $self->clone(1);
    }
    else
    {
        my $obj = $self->new;
        $obj->__data = { map { $_ => $self->__data->{$_} } keys %{$self->__data} };
        return $obj;
    }
}

sub as_hash
{
    my $self = shift;

    if ( @_ )
    {
        return $self->SUPER::as_hash(1)->{__data};
    }
    return { map { $_ => $self->__data->{$_} } keys %{$self->__data} };
}

sub info
{
    my $self = shift;
    return join "\n", map { my $d = $self->__data->{$_}; $_ . '=' . ( ref $d || $d ) } keys %{$self->__data};
}

sub info_dump
{
    my $self = shift;
    return join "\n", map { my $d = $self->__data->{$_}; $_ . '=' . ( ref $d ? Dumper($d) : $d ) } keys %{$self->__data};
}

1;

package deferred;

use Ambrosia::error::Exceptions;

use overload
    '%{}' => \&as_hash,
    '@{}' => \&__as_array,
    '${}' => \&__as_scalar,
    '&{}' => \&__as_func,
    '*{}' => \&__as_glob,
    '==' => \&__as_bool,
    'bool'=> \&__as_bool,
    '""'  => \&__as_string,
    '0+'  => \&__as_number,
    'fallback' => 1
    ;

sub call(&)
{
    return bless {code => $_[0]}, 'deferred';
}

sub as_hash
{
    return $_[0] if caller eq __PACKAGE__;
    local $@;
    unless ( exists $_[0]->{value} )
    {
        my $h = $_[0]->{code}->();
        if ( ref $h eq 'HASH' )
        {
            $_[0]->{value} = $h;
        }
        elsif( ref $h && eval{$h->can('as_hash')})
        {
            $_[0]->{value} = $h->as_hash();
        }
    }
    elsif ( eval{$_[0]->{value}->can('as_hash')} )
    {
        $_[0]->{value} = $_[0]->{value}->as_hash();
    }
    return $_[0]->{value};
}

sub __as_any
{
    unless ( exists $_[0]->{value} )
    {
        $_[0]->{value} = $_[0]->{code}->();
    }
    return $_[0]->{value};
}

sub __as_array
{
    goto &__as_any;
}

sub __as_scalar
{
    goto &__as_any;
    #unless ( exists $_[0]->{scalar} )
    #{
    #    $_[0]->{scalar} = '' . $_[0]->{code}->();
    #}
    #return $_[0]->{scalar};
}

sub __as_func
{
    goto &__as_any;
}

sub __as_glob
{
    goto &__as_any;
}

sub __as_bool