}
} else {
print "None.";
}
print "\n";
# parent_registrar
print "Has own team of bureaucrats? ";
$parent_registrar = $myCountry->ParentRegistrar();
if ($parent_registrar != '') {
print "No (outsources to the wise experts of '" . $parent_registrar . "')\n";
} else {
print "Yes.\n";
}
# official currency
print "Official currency: ";
$official_currency = $myCountry->CurrencyISO4217();
if ($official_currency == '') {
print "None.";
} else {
print $official_currency;
}
print "\n";
# get example iban
$myIban = new IBAN($myCountry->IBANExample());
# output example iban properties one by one
print "Example IBAN: " . $myIban->HumanFormat() . "\n";
print " - country " . $myIban->Country() . "\n";
print " - checksum " . $myIban->Checksum() . "\n";
print " - bban " . $myIban->BBAN() . "\n";
print " - bank " . $myIban->Bank() . "\n";
print " - branch " . $myIban->Branch() . "\n";