| Meta documentation | Contained in the Meta distribution. |
Meta::Info::Authors - Object to store infomation about multiple authors.
Copyright (C) 2001, 2002 Mark Veltzer; All rights reserved.
This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version.
This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA.
MANIFEST: Authors.pm PROJECT: meta VERSION: 0.02
package foo;
use Meta::Info::Authors qw();
my($authors)=Meta::Info::Authors->new();
my($author)=$authors->get("mark");
my($signature)=$author->get_signature();
This is an object to store information for multiple authors within a system.
new_modu($$) get_default($) TEST($)
Will create and return a new authors object from a development module.
This method will return the default author.
Test suite for this object.
This test currently does nothing.
Meta::Ds::Ohash(3)
None.
Name: Mark Veltzer Email: mailto:veltzer@cpan.org WWW: http://www.veltzer.org CPAN id: VELTZER
0.00 MV bring movie data 0.01 MV finish papers 0.02 MV md5 issues
Meta::Development::Module(3), Meta::Ds::Ohash(3), Meta::Info::Author(3), strict(3)
Nothing.
| Meta documentation | Contained in the Meta distribution. |
#!/bin/echo This is a perl module and should not be run package Meta::Info::Authors; use strict qw(vars refs subs); use Meta::Ds::Ohash qw(); use Meta::Info::Author qw(); use Meta::Development::Module qw(); our($VERSION,@ISA); $VERSION="0.02"; @ISA=qw(Meta::Ds::Ohash); #sub new_modu($$); #sub get_default($); #sub TEST($); #__DATA__ sub new_modu($$) { my($class,$modu)=@_; my($self)={}; CORE::bless($self,$class); return($self); } sub get_default($) { my($self)=@_; my($module)=Meta::Development::Module->new_name("xmlx/author/author.xml"); my($author)=Meta::Info::Author->new_modu($module); return($author); } sub TEST($) { my($context)=@_; return(1); } 1; __END__