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 strict;
  12 use Moose::Role;
  13
  14 has 'debug' => (
  15   is => 'rw',
  16   isa => 'Int',
  17   default => sub { $Business::BatchPayment::DEBUG || 0 },
  18   lazy => 1,
  19 );
  20
  21 1;