MojoMojo::Schema::ResultSet::Person - resultset methods on users

MojoMojo documentation Contained in the MojoMojo distribution.

Index

Code Index:

NAME

Top

MojoMojo::Schema::ResultSet::Person - resultset methods on users

METHODS

Top

get_person

Get a person by login.

get_user

Same as get_person.

user_free

Check if a username is available. Returns 1 for available, 0 for in use.

AUTHOR

Top

Marcus Ramberg <mramberg@cpan.org>

LICENSE

Top

This library is free software. You can redistribute it and/or modify it under the same terms as Perl itself.

MojoMojo documentation Contained in the MojoMojo distribution. 
package MojoMojo::Schema::ResultSet::Person;

use strict;
use warnings;
use parent qw/MojoMojo::Schema::Base::ResultSet/;


sub get_person {
    my ( $self, $login ) = @_;
    return $self->search( { login => $login } )->single;
}


sub get_user {
    my ( $self, $user ) = @_;
    return $self->search( { login => $user } )->next();
}


sub user_free {
    my ( $class, $schema, $login ) = @_;
    $login ||= $class;
    my $user = $class->result_source->resultset->get_user($login);
    return ( $user ? 0 : 1 );
}


1;