Finance::Bank::LloydsTSB::utils - internal utility routines

Finance-Bank-LloydsTSB documentation Contained in the Finance-Bank-LloydsTSB distribution.

Index

Code Index:

NAME

Top

Finance::Bank::LloydsTSB::utils - internal utility routines

Finance-Bank-LloydsTSB documentation Contained in the Finance-Bank-LloydsTSB distribution. 
package Finance::Bank::LloydsTSB::utils;


use strict;
use warnings;

our $VERSION = '1.35';

use base 'Exporter';
our @EXPORT_OK = qw(trim debug);

sub trim {
    my $class = shift;
    my ($text) = @_;
    $text =~ s/^\s+//;
    $text =~ s/\s+$//;
    return $text;
}

sub debug {
    my $class = shift;
    my $varname = (ref($class) || $class) . "::DEBUG";
    no strict 'refs';
    warn @_ if $$varname;
}

1;