Yet Another CPAN Grep

Finance-BankVal-International-GetSWIFT ( U/UN/UNIFIEDSW/Finance-BankVal-International-GetSWIFT-0.4.tar.gz, UNIFIEDSW, 2010; MetaCPAN )

Finance-BankVal-International-GetSWIFT/lib/Finance/BankVal/International/GetSWIFT.pm ( view source; MetaCPAN )

ML::Simple;
use JSON;

require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(getSWIFT new);
our $VERSION = '0.04';

my $format;		#response return format i.e. xml json csv
my $swiftbi


	}
}

sub validateFormat{
        #Validate response format must match json, xml, or, csv
        if ($format !~ /^json$|^xml$|^csv$/){
                $error .= "INVALID - Result Format";

ess4></address4><location></location><country></country></swiftbic>";
        }elsif($format eq "json"){
         	$responseString = "{\"result\":\"" . $responseString . "\",\"bic\":\"\",\"name1\":\