trAvis - MANAGER
Edit File: 012_RT61906.t
#!/usr/bin/perl #https://rt.cpan.org/Ticket/Display.html?id=61906 use strict; use warnings; use Test::More; package MouseObj; use Mouse 0.78; has 'only_accessor' => ( is => 'rw', isa => 'Int', accessor => 'only_accessor_accessor', ); has 'accesor_and_writer' => ( is => 'rw', isa => 'Int', accessor => 'accesor_and_writer_accessor', writer => 'accesor_and_writer_writer', ); has 'not_with_is' => ( isa => 'Int', accessor => 'not_with_is_accessor', ); package main; can_ok('MouseObj', 'only_accessor_accessor'); can_ok('MouseObj', 'accesor_and_writer_accessor'); can_ok('MouseObj', 'accesor_and_writer_writer'); can_ok('MouseObj', 'not_with_is_accessor'); done_testing;