File Coverage

blib/lib/Tie/Autotie.pm

Criterion	Covered	Total	%
statement	32	34	94.1
branch	5	8	62.5
condition	5	13	38.4
subroutine	8	8	100.0
pod			n/a
total	50	63	79.3

package Tie::Autotie;

use 5.006;
use strict;
use warnings;

our $VERSION = 0.03;


sub import {
  my ($class, $pkg, $use_args, $tie_args) = @_;

  $use_args ||= [];
  $tie_args ||= [];

  eval "use $pkg \@\$use_args; 1;";

  no strict 'refs';
  no warnings 'redefine';

  *{$pkg . "::AUTOTIE_STORE"} = \&{$pkg . "::STORE"};
  *{$pkg . "::STORE"} = sub {
    my ($self, $key, $value) = @_;

    if (ref $value) {
      if (UNIVERSAL::isa($value, 'SCALAR') and $pkg->can('TIESCALAR')) {
        tie $$value, $pkg, @$tie_args;
      }
      elsif (UNIVERSAL::isa($value, 'ARRAY') and $pkg->can('TIEARRAY')) {
        tie @$value, $pkg, @$tie_args;
      }
      elsif (UNIVERSAL::isa($value, 'HASH') and $pkg->can('TIEHASH')) {
        tie %$value, $pkg, @$tie_args;
      }
    }

    $self->AUTOTIE_STORE($key, $value);
  };
}


1;

__END__