Acme::CPANAuthors::Register - Acme::CPANAuthors::Register documentation

Acme-CPANAuthors documentation Contained in the Acme-CPANAuthors distribution.

Index

Code Index:

NAME

Top

Acme::CPANAuthors::Register

SYNOPSIS

Top

  package Acme::CPANAuthors::YourGroup
  use strict;
  use warnings;
  our $VERSION = '0.071226';
  use Acme::CPANAuthors::Register (
    ID  => 'Real Name',
  );

  1;

  # then you can get authors list like these.
  # note that ->authors is context sensitive)

  my %hash    = Acme::CPANAuthors::YourGroup->authors;
  my $hashref = Acme::CPANAuthors::YourGroup->authors;

DESCRIPTION

Top

This is used to register Pause IDs and real names of those who belong to your country/local perl mongers group/your company etc.

SEE ALSO

Top

Acme::CPANAuthors

AUTHOR

Top

Kenichi Ishigaki, <ishigaki at cpan.org>

COPYRIGHT AND LICENSE

Top

Copyright (C) 2007 by Kenichi Ishigaki.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

Acme-CPANAuthors documentation Contained in the Acme-CPANAuthors distribution. 
package Acme::CPANAuthors::Register;

use strict;
use warnings;

sub import {
  my ($class, %authors) = @_;

  my $caller = caller;
  {
    no strict 'refs';
    *{"$caller\::authors"} = sub { wantarray ? %authors : \%authors };
  }
}

1;

__END__