view release on metacpan or  search on metacpan

lib/App/Cinema/Event.pm  view on Meta::CPAN

package App::Cinema::Event;
use Moose;
use namespace::autoclean;
use HTTP::Date qw/time2iso/;

BEGIN {
	our $VERSION = $App::Cinema::VERSION;
}

=head1 NAME

App::Cinema::Event - Record a user's 
actions in the system.

=head1 SYNOPSIS

	my $e = App::Cinema::Event->new();
	$e->content(' deleted account : ');
	$e->target($id);
	$e->insert($c);
	
	The result will look like this :
	
	USER		 ACTION					DESC		TIME
	test02  	 deleted account :  	test02  	2010-01-22 13:01:54

=head1 DESCRIPTION

Record a user's actions in the system.

=pod

=head2 Methods

=over 12

=item C<uid>

This method gets/sets uid attribute of this object.

=cut

has 'uid' => (
	is      => 'rw',
	isa     => 'Str',
	default => ""
);

=item C<desc>

This method gets/sets desc attribute of this object.

=cut

has 'desc' => (
	is      => 'rw',
	isa     => 'Str',
	default => '',
);

=item C<now>

This method gets now time of this object.