Commit | Line | Data |
---|---|---|
b99ff5d8 | 1 | use strict; |
2 | use warnings; | |
3 | use Test::More tests => 1; | |
4 | use Test::Exception; | |
5 | ||
6 | lives_ok { | |
7 | package TestApp::TestCustomRequest; | |
8 | use strict; | |
9 | use warnings; | |
10 | use base qw/Catalyst::Request/; | |
11 | ||
12 | # Catalyst::Request::REST uses this, so test it in core.. | |
13 | __PACKAGE__->mk_accessors(qw( custom_accessor )); | |
14 | } 'Can make a custom request class'; | |
15 | ||
16 |