File Coverage

blib/lib/Pixie/Name.pm

Criterion	Covered	Total	%
statement	17	37	45.9
branch	3	14	21.4
condition			n/a
subroutine	5	9	55.5
pod	0	7	0.0
total	25	67	37.3

package Pixie::Name;

use strict;

our $VERSION="2.06";

sub new {
  my $proto = shift;
  return bless {}, $proto;
}

sub name_object_in {
  my $proto = shift;
  my($name,$obj,$pixie) = @_;
  $pixie->insert($proto->new->_oid("")
                 ->px_target($obj));
}

sub get_object_from {
  my $proto = shift;
  my($name, $pixie, $strategy) = @_;
  $proto->do_restoration( defined($strategy) ?
			  $pixie
			    ->get_with_strategy("", $strategy) :
			  $pixie->get(""));
}

sub do_restoration {
  my $self = shift;

  return unless my $name_obj = shift;
  my $target = $name_obj->px_target;
  if (wantarray) {
    return map { eval { $_->px_restore } || $_ } @$target;
  }
  else {
    if ($target->[-1]->isa('Pixie::Proxy')) {
      return $target->[-1]->px_restore;
    } else { return $target->[-1]; }
  }
}

sub get_object_from_with_strategy {
  my $proto = shift;
  my($name, $pixie, $strategy) = @_;
  $proto->do_restoration($pixie->get_with_strategy("", $strategy));
}

sub remove_name_from {
  my $proto = shift;
  my($name, $pixie) = @_;

  $pixie->delete("");
}

sub _oid {
  my $self = shift;
  if (@_) {
    $self->{_oid} = shift;
    return $self;
  }
  else {
    return $self->{_oid};
  }
}

sub px_target {
  my $self = shift;
  if (@_) {
    $self->{target} = shift;
    return $self;
  }
  else {
    return $self->{target};
  }
}

1;