App/RoomReservation/Reservation.pm

package App::RoomReservation::Reservation;
use Moose;

extends 'Frey';
with 'Frey::Web';
#with 'Frey::Storage';

has ime => (
        is => 'rw',
        isa => 'Str',
        required => 1,
);

has prezime => (
        is => 'rw',
        isa => 'Str',
        required => 1,
);

has institucija => (
        is => 'rw',
        isa => 'Str',
        required => 1,
);

has zanimanje => (
        is => 'rw',
        isa => 'Str',
        required => 1,
);

has grad => (
        is => 'rw',
        isa => 'Str',
        required => 1,
);

has drzava => (
        is => 'rw',
        isa => 'Str',
        required => 1,
);

has telefon => (
        is => 'rw',
        isa => 'Str',
        required => 1,
);

has mobitel => (
        is => 'rw',
        isa => 'Str',
        required => 1,
);

has email => (
        is => 'rw',
        isa => 'Str',
        required => 1,
);

has email_verify => (
        is => 'rw',
        isa => 'Str',
        required => 1,
);

has _confirmed => (
        is => 'rw',
        isa => 'Bool',
        required => 1,
        default => sub { 0 },
);

sub as_markup {
        my ($self) = @_;

        $self->ime;
}

1;
1	dpavlin	1086	package App::RoomReservation::Reservation;
2			use Moose;
3
4			extends 'Frey';
5			with 'Frey::Web';
6			#with 'Frey::Storage';
7
8			has ime => (
9			is => 'rw',
10			isa => 'Str',
11			required => 1,
12			);
13
14			has prezime => (
15			is => 'rw',
16			isa => 'Str',
17			required => 1,
18			);
19
20			has institucija => (
21			is => 'rw',
22			isa => 'Str',
23			required => 1,
24			);
25
26			has zanimanje => (
27			is => 'rw',
28			isa => 'Str',
29			required => 1,
30			);
31
32			has grad => (
33			is => 'rw',
34			isa => 'Str',
35			required => 1,
36			);
37
38			has drzava => (
39			is => 'rw',
40			isa => 'Str',
41			required => 1,
42			);
43
44			has telefon => (
45			is => 'rw',
46			isa => 'Str',
47			required => 1,
48			);
49
50			has mobitel => (
51			is => 'rw',
52			isa => 'Str',
53			required => 1,
54			);
55
56			has email => (
57			is => 'rw',
58			isa => 'Str',
59			required => 1,
60			);
61
62			has email_verify => (
63			is => 'rw',
64			isa => 'Str',
65			required => 1,
66			);
67
68			has _confirmed => (
69			is => 'rw',
70			isa => 'Bool',
71			required => 1,
72			default => sub { 0 },
73			);
74
75			sub as_markup {
76			my ($self) = @_;
77
78			$self->ime;
79			}
80
81			1;