Changeset 2224
- Timestamp:
- 10/13/09 23:03:35 (2 years ago)
- Location:
- Rose-ObjectX-CAF/trunk
- Files:
-
- 3 edited
-
Changes (modified) (1 diff)
-
lib/Rose/ObjectX/CAF.pm (modified) (2 diffs)
-
lib/Rose/ObjectX/CAF/MethodMaker.pm (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
Rose-ObjectX-CAF/trunk/Changes
r2192 r2224 7 7 * doc fixes 8 8 9 0.03 13 Oct 2009 10 * check for method via can() in base init() before setting 11 in object hash ref. 12 -
Rose-ObjectX-CAF/trunk/lib/Rose/ObjectX/CAF.pm
r2192 r2224 6 6 use Rose::ObjectX::CAF::MethodMaker; 7 7 8 our $VERSION = '0.0 2';8 our $VERSION = '0.03'; 9 9 10 10 =head1 NAME … … 85 85 while (@_) { 86 86 my $method = shift; 87 if (!$self->can($method)) { 88 croak "No such method $method"; 89 } 87 90 $self->{$method} = shift; 88 91 } -
Rose-ObjectX-CAF/trunk/lib/Rose/ObjectX/CAF/MethodMaker.pm
r2192 r2224 6 6 my $Debug = 0; #$ENV{PERL_DEBUG}; 7 7 8 our $VERSION = '0.0 2';8 our $VERSION = '0.03'; 9 9 10 10 =head1 NAME
Note: See TracChangeset
for help on using the changeset viewer.
