The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package MetaStore::Auth::UserGuest;
use strict;
use warnings;
use MetaStore::Auth::User;
our @ISA = qw(MetaStore::Auth::User);


=pod

=head1 NAME

MetaStore::Auth::UserGuest

=head1 SYNOPSIS


=head1 DESCRIPTION

MetaStore::Auth::UserGuest

=head1 METHODS

=cut

sub _init {
    my $self = shift;
    my ( $attr ) = @_;
    $self->_attr({%{$attr || {}}});
    return 1;
}

=head2 id

User guest always have -1 

=cut

sub id {
    return -1;
}
1;
__END__

=head1 AUTHOR

Aliaksandr P. Zahatski, <zahatski@gmail.com>

=cut