Bivio::Delegation
# Copyright (c) 2008 bivio Software, Inc. All Rights Reserved. # $Id$ package Bivio::Delegation; use strict; use Bivio::Base 'Collection.Attributes'; sub internal_as_string { my($self) = @_; return $self->unsafe_get(qw(calling_package method delegator)); } sub new { my($proto, $delegate, $delegator) = @_; return $proto->SUPER::new({ calling_package => (caller(1))[0], method => $proto->my_caller(1), delegate => $delegate, delegator => $delegator, }); } 1;