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	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;