t/lib/TestApp.pm

   1 package TestApp;
   2
   3 use strict;
   4 use warnings;
   5 use Moose;
   6
   7 with 'MooseX::Object::Pluggable';
   8
   9 has bee => (is => 'rw', isa => 'Int', required => 1, default => '100');
  10
  11 sub BUILD{ 'foome' }
  12
  13 sub foo{ 'original foo' }
  14
  15 sub bar{ 'original bar' }
  16
  17 sub bor{ 'original bor' }
  18
  19 1;