App/RoomReservation/Room.pm

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

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