[Templates-cvs] cvs commit: TT3/lib/Template VObject.pm

[cvs@template-toolkit.org]

cvs         04/03/29 16:33:26

  Modified:    lib/Template VObject.pm
  Log:
  added method()
  
  Revision  Changes    Path
  1.2       +10 -2     TT3/lib/Template/VObject.pm
  
  Index: VObject.pm
  ===================================================================
  RCS file: /template-toolkit/TT3/lib/Template/VObject.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- VObject.pm	2004/03/29 13:48:29	1.1
  +++ VObject.pm	2004/03/29 16:33:26	1.2
  @@ -17,7 +17,7 @@
   #   modify it under the same terms as Perl itself.
   #
   # REVISION
  -#   $Id: VObject.pm,v 1.1 2004/03/29 13:48:29 abw Exp $
  +#   $Id: VObject.pm,v 1.2 2004/03/29 16:33:26 abw Exp $
   #
   #========================================================================
   
  @@ -29,7 +29,7 @@
   use base qw( Template::Base );
   use vars qw( $VERSION $DEBUG $ERROR );
   
  -$VERSION = sprintf("%d.%02d", q$Revision: 1.1 $ =~ /(\d+)\.(\d+)/);
  +$VERSION = sprintf("%d.%02d", q$Revision: 1.2 $ =~ /(\d+)\.(\d+)/);
   $DEBUG   = 0 unless defined $DEBUG;
   $ERROR   = '';
   
  @@ -40,6 +40,14 @@
       return ${"$class\::METHODS"} || { };
   }
   
  +sub method {
  +    my $self = shift;
  +    my $methods = $self->methods();
  +    return $methods unless @_;
  +    my $name = shift || '';
  +    return $methods->{ $name } || $self->error("no such method: $name");
  +}
  +
   
   
   #------------------------------------------------------------------------
  @@ -91,7 +99,7 @@
   
   =head1 VERSION
   
  -$Revision: 1.1 $
  +$Revision: 1.2 $
   
   =head1 COPYRIGHT