# Created by DBIx::Class::Schema::Loader v0.04999_06 @ 2009-02-28 19:14:54
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:iS0oJWk28gjL7QD50cdRqQ

no warnings "uninitialized";
use Scalar::Util "blessed";
use List::Util "first";

__PACKAGE__->many_to_many( roles => "user_roles", "role" );

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;
}