BatchPayment/Debug.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

package Business::BatchPayment::Debug;

=head1 DESCRIPTION

The 'debug' attribute.  All Business::BatchPayment classes should support 
this.  $Business::BatchPayment::DEBUG can be set to turn on debugging 
globally.

=cut

use strict;
use Moose::Role;

has 'debug' => (
  is => 'rw',
  isa => 'Int',
  default => sub { $Business::BatchPayment::DEBUG || 0 },
  lazy => 1,
);

1;