Mason Code (1/2)

• 01..03 <%args> $long_url => undef </%args> 04 <%init> 05 use ReallyShort; 06 my $link_id = $m->dhandler_arg; 07 if ( $link_id ) { 08 if ( my ($reallyshort) = ReallyShort->search({ link_id => $link_id }) ) { 09 $m->redirect($reallyshort->long_url); 11 return REDIRECT; 12 } 13 } 14 my $short_url; 15 if ( $long_url ) { 16 my $reallyshort = ReallyShort->create({ long_url => $long_url }); 17 $short_url = 'http://reallyshort.com/' . $reallyshort->link_id; 18 } 19 </%init>