package MetaStore::Auth::User; use strict; use warnings; use MetaStore::Item; use Data::Dumper; our @ISA = qw(MetaStore::Item); our $VERSION = '0.01'; =pod =head1 NAME MetaStore::Auth::User =head1 SYNOPSIS =head1 DESCRIPTION MetaStore::Auth::User =head1 METHODS =cut sub _init { my $self = shift; return $self->SUPER::_init(@_); } =head2 session_id session_id =cut sub session_id { my $self = shift; my $sess_id = shift; defined $sess_id ? $self->attr->{sess_id} = $sess_id : $self->attr->{sess_id}; } 1; __END__ =head1 AUTHOR Aliaksandr P. Zahatski, =cut