NAME

Scope::Container - scope based container

SYNOPSIS

  use Scope::Container;
  sub getdb {
      if ( my $dbh = scope_container('db') ) {
          return $dbh;
      } else {
          my $dbh = DBI->connect(...);
          scope_container('db', $dbh)
          return $dbh;
      }
  }
  for (1..3) {
    my $contaier = start_scope_container();
    getdb(); # do connect
    getdb(); # from container
    getdb(); # from container
    # $container scope out and disconnect from db
  }
  getdb(); # do connect

DESCRIPTION

Scope::Container is scope based container for temporary items and Database Connections.

EXPORTED FUNCTION

my $scope_container = start_scope_container([-clear => 1]);

Initializing container. The default behavior is inherited all the previous container's data. If set -clear arguments, save previous container's data and create new data.

return values is Scope::Container object. if this object scope exits, current container will be removed, return to the previous state.

my $value = scope_container($key:Str[,$val:Any]);

getter, setter of container data.

in_scope_container

Check if context is initialized

LIMITATION

There is a limit to the order in which the Scope::Container object is deleted. If race condition found, remove all data.

  my $sc = start_scope_container();
  scope_container('bar', 'foo');
  my $sc2 = start_scope_container();
  scope_container('bar', 'baz');
  undef $sc;
  scope_container('bar'); #null

AUTHOR

Masahiro Nagano <kazeburo {at} gmail.com>

Fuji, Goro (gfx)

LICENSE

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