File Coverage

blib/lib/Scope/local_OnExit.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	4	4	100.0
condition			n/a
subroutine	9	9	100.0
pod			n/a
total	39	39	100.0

package Scope::local_OnExit;

use 5.006000;
$VERSION = 0.01;
use strict;
use warnings;
sub TIESCALAR { bless [
     sub {
          require Carp;
          Carp::croak( __PACKAGE__." stack underflow")
     }
] }
sub DEBUG() { 0 }
sub STORE {
  # my $stack = shift;
  # my $newval = shift;
  DEBUG and warn "STORING: @_";
  # if(ref $newval){
  #     push @$stack, $newval
  # }else{
  if(ref $_[1]){
      push @{$_[0]}, $_[1]
  }else{
     # eval {    &{pop @$stack}; 1 }
     # or warn "running top of stack failed: $@--"
     $_[1] > 0 and (pop @{$_[0]})->()
  }
}
sub FETCH {
  DEBUG and warn "FETCHING: @_ (@{$_[0]})";
  0+@{$_[0]}
}

sub import{
     no strict 'refs';
     tie ${caller().'::OnExit'}, __PACKAGE__;
}

1;
__END__