Commit | Line | Data |
0464d337 |
1 | #!perl |
2 | #https://rt.cpan.org/Ticket/Display.html?id=61906 |
3 | use strict; |
4 | use warnings; |
5 | use Test::More; |
6 | |
7 | package MouseObj; |
8 | use Mouse 0.78; |
9 | |
10 | has 'only_accessor' => ( |
11 | is => 'rw', |
12 | isa => 'Int', |
13 | accessor => 'only_accessor_accessor', |
14 | ); |
15 | |
16 | has 'accesor_and_writer' => ( |
17 | is => 'rw', |
18 | isa => 'Int', |
19 | accessor => 'accesor_and_writer_accessor', |
20 | writer => 'accesor_and_writer_writer', |
21 | ); |
22 | |
23 | has 'not_with_is' => ( |
24 | isa => 'Int', |
25 | accessor => 'not_with_is_accessor', |
26 | ); |
27 | |
28 | package main; |
29 | |
30 | can_ok('MouseObj', 'only_accessor_accessor'); |
31 | can_ok('MouseObj', 'accesor_and_writer_accessor'); |
32 | can_ok('MouseObj', 'accesor_and_writer_writer'); |
33 | can_ok('MouseObj', 'not_with_is_accessor'); |
34 | |
35 | done_testing; |