File Coverage

blib/lib/Var/Mystic.pm

Criterion	Covered	Total	%
statement	51	70	72.8
branch	3	6	50.0
condition	3	6	50.0
subroutine	12	14	85.7
pod			n/a
total	69	96	71.8

package Var::Mystic;

use 5.014; use warnings;

our $VERSION = '0.000002';

use Keyword::Declare;
use Data::Dx ();

sub import {
    keyword mystic (ScalarVar $var) {{{ my <{$var}>; Var::Mystic::_setup(<{$var}>, '<{$var}>') }}}

    keyword mystic (ArrayVar) {{{ BEGIN { die "Cannot declare an array to be mystic" } }}}
    keyword mystic (HashVar)  {{{ BEGIN { die "Cannot declare a hash to be mystic" }   }}}
}

sub _setup : lvalue {
    my (undef, $name) = @_;

    use Variable::Magic qw< wizard cast >;
    cast $_[0], wizard set => sub { my (undef, $file, $line) = caller(1);
                                    Data::Dx::_format_data($line, $file, $name, q{}, ${$_[0]}) };

    $_[0];
}



1; # Magic true value required at end of module
__END__