[Openinteract-commits] CVS: OpenInteract2/lib/OpenInteract2/Config Package.pm,1.20,1.21

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

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

Modified Files:
	Package.pm 
Log Message:
add author_names() and author_emails()


Index: Package.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Config/Package.pm,v
retrieving revision 1.20
retrieving revision 1.21
diff -C2 -d -r1.20 -r1.21
*** Package.pm	25 Jan 2005 02:47:24 -0000	1.20
--- Package.pm	8 Feb 2005 01:27:23 -0000	1.21
***************
*** 100,103 ****
--- 100,136 ----
  
  
+ sub author_names {
+     my ( $self ) = @_;
+     my ( $names, $emails ) = $self->_parse_authors;
+     return @{ $names };
+ }
+ 
+ sub author_emails {
+     my ( $self ) = @_;
+     my ( $names, $emails ) = $self->_parse_authors;
+     return @{ $emails };
+ }
+ 
+ sub _parse_authors {
+     my ( $self ) = @_;
+     my $authors = $self->author;
+     return ( [], [] ) unless ( ref $authors );
+     my @names  = ();
+     my @emails = ();
+     foreach my $author ( @{ $authors } ) {
+         my ( $name, $d1, $email, $d2 ) = $author =~ /^([\w\s]+)(\(|<)\s*(.*)\s*(\)|>)\s*$/;
+         # ...they didn't put an email in
+         unless ( $name ) {
+             $name  = $author;
+             $email = '';
+         }
+         $name =~ s/^\s+//;
+         $name =~ s/\s+$//;
+         push @names, $name;
+         push @emails, $email;
+     }
+     return ( \@names, \@emails );
+ }
+ 
  sub get_spops_files {
      my ( $self ) = @_;
***************
*** 414,417 ****
--- 447,460 ----
  Returns: object
  
+ B<author_names()>
+ 
+ Returns a list of all author names pulled out of the 'author'
+ property.
+ 
+ B<author_emails()>
+ 
+ Returns a list of all author emails pulled out of the 'author'
+ property.
+ 
  B<get_spops_files()>