[Openinteract-commits] CVS: OpenInteract2/lib/OpenInteract2 Manage.pm,1.45,1.46

[Chris W. <la...@us...>]

Update of /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32664/lib/OpenInteract2

Modified Files:
	Manage.pm 
Log Message:
add OpenInteract2::ParamContainer to ISA, remove old methods and modify docs to reflect


Index: Manage.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Manage.pm,v
retrieving revision 1.45
retrieving revision 1.46
diff -C2 -d -r1.45 -r1.46
*** Manage.pm	8 Feb 2005 01:09:13 -0000	1.45
--- Manage.pm	13 Feb 2005 20:16:36 -0000	1.46
***************
*** 4,8 ****
  
  use strict;
! use base qw( Exporter Class::Factory Class::Observable );
  use Cwd                      qw( cwd );
  use File::Spec::Functions    qw( :ALL );
--- 4,8 ----
  
  use strict;
! use base qw( Exporter OpenInteract2::ParamContainer Class::Factory Class::Observable );
  use Cwd                      qw( cwd );
  use File::Spec::Functions    qw( :ALL );
***************
*** 393,411 ****
  # PARAMETERS
  
- sub param {
-     my ( $self, $key, $value ) = @_;
-     return $self->{params}  unless ( $key );
-     if ( $value ) {
-         $self->{params}{ $key } = $value;
-     }
-     return $self->{params}{ $key };
- }
- 
  sub param_copy_from {
      my ( $self, $other_task ) = @_;
!     my $other_params = $other_task->param;
!     while ( my ( $name, $value ) = each %{ $other_params } ) {
!         $self->param( $name, $value );
!     }
      return $self->param;
  }
--- 393,399 ----
  # PARAMETERS
  
  sub param_copy_from {
      my ( $self, $other_task ) = @_;
!     $self->param_assign( $other_task->param );
      return $self->param;
  }
***************
*** 820,830 ****
  B<param( $key, $value )>
  
! If C<$key> is unspecified, returns all parameters as a hashref.
! 
! If C<$value> is unspecified, returns the current value set for
! parameter C<$key>.
! 
! If both C<$key> and C<$value> are specified, sets the parameter
! C<$key> to C<$value> and returns it.
  
  Example:
--- 808,812 ----
  B<param( $key, $value )>
  
! See L<OpenInteract2::ParamContainer> for details.
  
  Example:
***************
*** 847,851 ****
  Copy all parameters from C<$other_task> into this object.
  
! Returns: results of C<param()> on this object.
  
  B<get_status()>
--- 829,833 ----
  Copy all parameters from C<$other_task> into this object.
  
! Returns: results of C<param()> on this object after the copy
  
  B<get_status()>