perl ，=>，括号

perl中=>（胖箭头）与,（逗号）等价。
perl中，自定义函数在调用时如果不影响程序语义，可以省略括号。

get '/' => sub {
        my $db = connect_db();
        my $sql = 'select id, title, text from entries order by id desc';
        my $sth = $db->prepare($sql) or die $db->errstr;
        $sth->execute or die $sth->errstr;
 };

代码等价于get('/',sub{});

template 'show_entries.tt', {
                'msg' => get_flash(),
                'add_entry_url' => uri_for('/add'),
                'entries' => $sth->fetchall_hashref('id'),
        };

上面代码等价于template('show_entries.tt', {});