File Coverage

blib/lib/MojoMojo/Schema/ResultSet/Person.pm

Criterion	Covered	Total	%
statement	13	17	76.4
branch	0	2	0.0
condition	0	3	0.0
subroutine	5	6	83.3
pod	3	3	100.0
total	21	31	67.7

package MojoMojo::Schema::ResultSet::Person;

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

=head1 NAME

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

=head1 METHODS

=head2 get_person

Get a person by login.

=cut

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

=head2 get_user

Same as L</get_person>.

=cut

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

=head2 user_free

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

=cut

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

=head1 AUTHOR

Marcus Ramberg <[e-mail]>

=head1 LICENSE

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

=cut

1;