lib/Blog.pm

   1 package Blog;
   2
   3 use strict;
   4 use warnings;
   5
   6 use Catalyst::Runtime '5.70';
   7
   8 use Catalyst::Authentication::Store::Minimal;
   9
  10 use Blog::NewDB;
  11 use Blog::Unicode;
  12
  13 use Catalyst qw/
  14     Unicode
  15
  16     ConfigLoader
  17
  18     Static::Simple
  19
  20     Session
  21     Session::Store::FastMmap
  22     Session::State::Cookie
  23
  24     Authentication
  25     Authorization::ACL::Paranoid
  26
  27     I18N
  28
  29     +Blog::Plugin::Helper
  30   /;
  31
  32 our $VERSION = '0.03';
  33
  34 __PACKAGE__->config( name => 'Blog', style => 'default' );
  35
  36 __PACKAGE__->setup;
  37
  38 __PACKAGE__->acl(
  39     '/index' => 1,
  40
  41     '/user/login'        => sub { !shift->user_exists() },
  42     '/user/login_openid' => sub { !shift->user_exists() },
  43     '/user/logout'       => sub { shift->user_exists() },
  44
  45     '/post/list'         => 1,
  46     '/post/view'         => 1,
  47     '/post/feed'         => 1,
  48     '/post/archive'      => 1,
  49     '/post/archive_list' => 1,
  50
  51     '/page/view'         => 1,
  52
  53     '/tag/list' => 1,
  54     '/tag/view' => 1,
  55
  56     '/comment/add'  => 1,
  57     '/comment/feed' => 1,
  58
  59     '*' => sub { shift->user_in_realm( 'admins' ) }
  60 );
  61
  62 =head1 NAME
  63
  64 Blog - Catalyst based application
  65
  66 =head1 AUTHOR
  67
  68 vti
  69
  70 =head1 LICENSE
  71
  72 This library is free software, you can redistribute it and/or modify
  73 it under the same terms as Perl itself.
  74
  75 =cut
  76
  77 1;