Ticket #401: MooclassVanilla.pm

File MooclassVanilla.pm, 535 bytes (added by buff3r, 2 years ago)

class to test parse (sans MooseX::Declare)

Line 
1package Moose::Declarations::MethodModifiers::Vanilla;
2
3use Moose;
4
5has 'moo_att' => ( is => 'rw', );
6
7has [qw/ label progress butWarn butTime start_stop /] =>
8( isa => 'Ref', is => 'rw' );
9
10has qw(account) => ( is => 'rw', );
11
12has non_quoted_attr => ( is=> 'rw' );
13
14sub pub_sub {
15  return;
16};
17
18sub _pri_sub {
19  return;
20};
21
22before 'mm_before' => sub {
23  return;
24};
25
26after 'mm_after' => sub {
27  return;
28};
29
30around 'mm_around' => sub{
31  return;
32};
33
34override 'mm_override' => sub {
35  return;
36};
37
38augment 'mm_augment' => sub {
39  return;
40}