App/RoomReservation/Room.pm

package App::RoomReservation::Room;
use Moose;

use Frey;
with 'Frey::Web';

has room => (
        is => 'rw',
        isa => 'Str',
        required => 1,
        default => 'zimbardo',
);

has description => (
        is => 'rw',
        isa => 'Str',
        required => 1,
        default => q|
<h2>Prijava za predavanje profesora Phillipa Zimbarda "The Lucifer Effect"</h2>
<h3>28. 9. 2009. u 12 sati </h3>
        |,
);

has seats => (
        is => 'rw',
        isa => 'Int',
        required => 1,
        default => 600,
);

sub seats_full { 42 }

sub seats_left {
        my ($self) = @_;
        $self->seats - $self->seats_full;
}

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

        my $size = 50; # %

        my $full = int( $size * ( $self->seats_full / $self->seats ) );
        my $left = int( $size * ( $self->seats_left / $self->seats ) );

        $self->description
        . qq|
                <table width=$size%>
                <tr><th colspan=2>seats</th></tr>
                <tr><th>full</th><th>left</th>
                <tr><td width=$full%>
        | . $self->seats_full . qq|
                </td><td width=$left%>
        | . $self->seats_left . qq|
                </td></tr>
                </table>
        |
}

1;
1	dpavlin	1086	package App::RoomReservation::Room;
2	dpavlin	1095	use Moose;
3	dpavlin	1086
4	dpavlin	1095	use Frey;
5			with 'Frey::Web';
6
7	dpavlin	1086	has room => (
8			is => 'rw',
9			isa => 'Str',
10			required => 1,
11			default => 'zimbardo',
12			);
13
14			has description => (
15			is => 'rw',
16			isa => 'Str',
17			required => 1,
18			default => q\|
19			<h2>Prijava za predavanje profesora Phillipa Zimbarda "The Lucifer Effect"</h2>
20			<h3>28. 9. 2009. u 12 sati </h3>
21			\|,
22			);
23
24			has seats => (
25			is => 'rw',
26			isa => 'Int',
27			required => 1,
28			default => 600,
29			);
30
31			sub seats_full { 42 }
32
33			sub seats_left {
34			my ($self) = @_;
35			$self->seats - $self->seats_full;
36			}
37
38			sub room_markup {
39			my ($self) = @_;
40
41			my $size = 50; # %
42
43			my $full = int( $size * ( $self->seats_full / $self->seats ) );
44			my $left = int( $size * ( $self->seats_left / $self->seats ) );
45
46			$self->description
47			. qq\|
48			<table width=$size%>
49			<tr><th colspan=2>seats</th></tr>
50			<tr><th>full</th><th>left</th>
51			<tr><td width=$full%>
52			\| . $self->seats_full . qq\|
53			</td><td width=$left%>
54			\| . $self->seats_left . qq\|
55			</td></tr>
56			</table>
57			\|
58			}
59
60			1;