# In MyApp::Schema::Class
=item B<has_role>

Takes a role object, an id, or a name.

=cut

sub has_role : method {
    my $self = shift;
    my $role = shift || return;

    if ( blessed $role )
    {
        return first { $role->id == $_->id } $self->roles;
    }
    elsif ( $role =~ /\A\d+\z/ )
    {
        return first { $role == $_->id } $self->roles;
    }
    else
    {
        return first { $role eq $_->name } $self->roles;
    }
    return;
}