use warnings;
use base qw/Class::Accessor::Fast/;
-our $VERSION= "0.1200";
+our $VERSION= "0.1401";
BEGIN {
=head1 VERSION
-This documentation refers to version 0.1200.
+This documentation refers to version 0.1401.
=head1 SYNOPSIS
my ( $self, $c ) = @_;
$c->authenticate({
- screen_name => $c->req->params->username,
- password => $c->req->params->password,
+ screen_name => $c->req->params->{username},
+ password => $c->req->params->{password},
status => [ 'registered', 'loggedin', 'active']
}))
}