File Coverage

blib/lib/MoobX/Hash.pm

Criterion	Covered	Total	%
statement	12	15	80.0
branch	0	2	0.0
condition			n/a
subroutine	5	6	83.3
pod	0	1	0.0
total	17	24	70.8

our $AUTHORITY = 'cpan:YANICK';
# ABSTRACT: MoobX wrapper for hash variables
$MoobX::Hash::VERSION = '0.1.1';

use Moose;

use experimental 'postderef';

has value => (
    traits => [ 'Hash' ],
    is => 'rw',
    default => sub { +{} },
    handles => {
        FETCH => 'get',
        STORE => 'set',
        CLEAR => 'clear',
        DELETE => 'delete',
        EXISTS => 'exists',
    },
);

    my( $class, @args ) = @_;

    unshift @args, 'value' if @args == 1;

    return { @args }
}

    (shift)->new( value => +{ @_ } )
}




1;


=pod

=encoding UTF-8

=head1 NAME

MoobX::Hash - MoobX wrapper for hash variables

=head1 VERSION

version 0.1.1

=head1 DESCRIPTION

Class implementing a C<tie>ing interface for hash variables.

Used internally by L<MoobX>.

=head1 AUTHOR

Yanick Champoux <[e-mail]>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2022, 2017 by Yanick Champoux.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut