Catalyst Maintainable web apps made easy! #124

Authentication

use Crypt::Random;
sub get_api_key {
    my $self = shift;
    my $rand = makerandom( Size => 128, Strength => 0);
    return $self->create_related(api_keys => { apikey => "$rand" });
}
Copyright © 2007 Jonathan Rockway