t/100_bugs/005_inline_reader_bug.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 1;
   7 use Test::Exception;
   8
   9
  10
  11 =pod
  12
  13 This was a bug, but it is fixed now. This
  14 test makes sure it does not creep back in.
  15
  16 =cut
  17
  18 {
  19     package Foo;
  20     use Mouse;
  21
  22     ::lives_ok {
  23         has 'bar' => (
  24             is      => 'ro',
  25             isa     => 'Int',
  26             lazy    => 1,
  27             default => 10,
  28         );
  29     } '... this didnt die';
  30 }
  31