BatchPayment/Debug.pm

   1 package Business::BatchPayment::Debug;
   2
   3 =head1 DESCRIPTION
   4
   5 The 'debug' attribute.  All Business::BatchPayment classes should support
   6 this.  $Business::BatchPayment::DEBUG can be set to turn on debugging
   7 globally.
   8
   9 =cut
  10
  11 use Moose::Role;
  12
  13 has 'debug' => (
  14   is => 'rw',
  15   isa => 'Int',
  16   default => sub { $Business::BatchPayment::DEBUG || 0 },
  17   lazy => 1,
  18 );
  19
  20 1;