App/RoomReservation/Messages.pm

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

sub seat_confirmation_message {
        my ( $self, $name, $seat, $email, $url ) = @_;

        my $html =
        qq|
                $name, <em>reservation has been confirmed</em>
        |
        . ( $seat
        ? qq|
                and seat number <big>$seat</big> is waiting for you.
                <br>
                Please print this notice and show it when entering lecture.
        | : qq|
                we <big>currently don't have any seats available</big>,
                but you will be notified if we get some vacancies for this lecture!
        | )
        ;

        $self->send( $email,
                "Lecture confirmation" . $seat ? " [seat $seat]" : " [wating for vacancy]",
                $html . <<__EMAIL__

If you wish to cancel your reservation please click on link below:

$url

__EMAIL__
        );

        return $html;
};

1;
1	package App::RoomReservation::Messages;
2	use Moose::Role;
3
4	sub seat_confirmation_message {
5	my ( $self, $name, $seat, $email, $url ) = @_;
6
7	my $html =
8	qq\|
9	$name, <em>reservation has been confirmed</em>
10	\|
11	. ( $seat
12	? qq\|
13	and seat number <big>$seat</big> is waiting for you.
14	<br>
15	Please print this notice and show it when entering lecture.
16	\| : qq\|
17	we <big>currently don't have any seats available</big>,
18	but you will be notified if we get some vacancies for this lecture!
19	\| )
20	;
21
22	$self->send( $email,
23	"Lecture confirmation" . $seat ? " [seat $seat]" : " [wating for vacancy]",
24	$html . <<__EMAIL__
25
26	If you wish to cancel your reservation please click on link below:
27
28	$url
29
30	__EMAIL__
31	);
32
33	return $html;
34	};
35
36	1;