NAME WebService::Ares - Perl class to communication with Ares service. SYNOPSIS use WebService::Ares; my $obj = WebService::Ares->new(%parameters); my @commands = $obj->commands; my $error = $obj->error($clean); my $data_hr = $obj->get($command, $def_hr); my $xml_data = $obj->get_xml($command, $def_hr); DESCRIPTION ARES - "Administrativnà registr ekonomických subjektů" is Czech information system of Ministry of Finance. METHODS "new(%parameters)" Constructor. * "agent" User agent setting. Default is 'WebService::Ares/$VERSION'. * "debug" Debug mode flag. Default is 0. "commands()" Get web service commands. Returns array of commands. "error($clean)" Get error. When $clean variable is present, cleans internal error variable. Returns string with error or undef. "get($command, $def_hr)" Get data for command '$command' and definitition defined in $dev_hr reference of hash. Possible definition keys are: - ic - company identification number. Returns reference to hash with data or undef as error. "get_xml($command, $def_hr)" Get XML data for command '$command' and definition defined in $dev_hr reference to hash. Possible definition keys are: - ic - company identification number. Returns string with XML data or undef as error. ERRORS get(): Method '%s' is unimplemented. get_xml(): Method '%s' is unimplemented. EXAMPLE1 # Pragmas. use strict; use warnings; # Modules. use Data::Printer; use WebService::Ares; # Arguments. if (@ARGV < 1) { print STDERR "Usage: $0 ic\n"; exit 1; } my $ic = $ARGV[0]; # Object. my $obj = WebService::Ares->new; # Get data. my $data_hr = $obj->get('standard', {'ic' => $ic}); # Print data. p $data_hr; # Output: # Usage: /tmp/8PICXQSYF3 ic # Output with (44992785) arguments: # \ { # address { # district "Brno-mÄ›sto", # num 196, # num2 1, # psc 60200, # street "Dominikánské námÄ›stÃ", # town "Brno", # town_part "Brno-mÄ›sto", # town_urban "Brno-stÅ™ed" # }, # create_date "1992-07-01", # firm "Statutárnà mÄ›sto Brno", # ic 44992785 # } EXAMPLE2 # Pragmas. use strict; use warnings; # Modules. use WebService::Ares; # Arguments. if (@ARGV < 1) { print STDERR "Usage: $0 ic\n"; exit 1; } my $ic = $ARGV[0]; # Object. my $obj = WebService::Ares->new; # Get data. my $data_xml = $obj->get_xml('standard', {'ic' => $ic}); # Print data. print $data_xml."\n"; # Output: # Usage: /tmp/8PICXQSYF3 ic # Output with (44992785) arguments: # <?xml version="1.0" encoding="UTF-8"?> # <are:Ares_odpovedi # xmlns:are="http://wwwinfo.mfcr.cz/ares/xml_doc/schemas/ares/ares_answer/v_1.0.1" # xmlns:dtt="http://wwwinfo.mfcr.cz/ares/xml_doc/schemas/ares/ares_datatypes/v_1.0.4" # xmlns:udt="http://wwwinfo.mfcr.cz/ares/xml_doc/schemas/uvis_datatypes/v_1.0.1" # odpoved_datum_cas="2014-08-18T07:43:50" odpoved_pocet="1" odpoved_typ="Standard" # vystup_format="XML" xslt="klient" # validation_XSLT="/ares/xml_doc/schemas/ares/ares_answer/v_1.0.0/ares_answer.xsl" # xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" # xsi:schemaLocation="http://wwwinfo.mfcr.cz/ares/xml_doc/schemas/ares/ares_answer/v_1.0.1 # http://wwwinfo.mfcr.cz/ares/xml_doc/schemas/ares/ares_answer/v_1.0.1/ares_answer_v_1.0.1.xsd" # Id="ares"> # <are:Odpoved> # <are:Pocet_zaznamu>1</are:Pocet_zaznamu> # <are:Typ_vyhledani>FREE</are:Typ_vyhledani> # <are:Zaznam> # <are:Shoda_ICO> # <dtt:Kod>9</dtt:Kod> # </are:Shoda_ICO> # <are:Vyhledano_dle>ICO</are:Vyhledano_dle> # <are:Typ_registru> # <dtt:Kod>3</dtt:Kod> # <dtt:Text>RES</dtt:Text> # </are:Typ_registru> # <are:Datum_vzniku>1992-07-01</are:Datum_vzniku> # <are:Datum_platnosti>2014-08-18</are:Datum_platnosti> # <are:Pravni_forma> # <dtt:Kod_PF>801</dtt:Kod_PF> # </are:Pravni_forma> # <are:Obchodni_firma>Statutárnà mÄ›sto Brno</are:Obchodni_firma> # <are:ICO>44992785</are:ICO> # <are:Identifikace> # <are:Adresa_ARES> # <dtt:ID_adresy>314885828</dtt:ID_adresy> # <dtt:Kod_statu>203</dtt:Kod_statu> # <dtt:Nazev_okresu>Brno-mÄ›sto</dtt:Nazev_okresu> # <dtt:Nazev_obce>Brno</dtt:Nazev_obce> # <dtt:Nazev_casti_obce>Brno-mÄ›sto</dtt:Nazev_casti_obce> # <dtt:Nazev_mestske_casti>Brno-stÅ™ed</dtt:Nazev_mestske_casti> # <dtt:Nazev_ulice>Dominikánské námÄ›stÃ</dtt:Nazev_ulice> # <dtt:Cislo_domovni>196</dtt:Cislo_domovni> # <dtt:Typ_cislo_domovni>1</dtt:Typ_cislo_domovni> # <dtt:Cislo_orientacni>1</dtt:Cislo_orientacni> # <dtt:PSC>60200</dtt:PSC> # <dtt:Adresa_UIR> # <udt:Kod_oblasti>60</udt:Kod_oblasti> # <udt:Kod_kraje>116</udt:Kod_kraje> # <udt:Kod_okresu>3702</udt:Kod_okresu> # <udt:Kod_obce>582786</udt:Kod_obce> # <udt:Kod_casti_obce>411582</udt:Kod_casti_obce> # <udt:Kod_mestske_casti>550973</udt:Kod_mestske_casti> # <udt:PSC>60200</udt:PSC> # <udt:Kod_ulice>22829</udt:Kod_ulice> # <udt:Cislo_domovni>196</udt:Cislo_domovni> # <udt:Typ_cislo_domovni>1</udt:Typ_cislo_domovni> # <udt:Cislo_orientacni>1</udt:Cislo_orientacni> # <udt:Kod_adresy>19095597</udt:Kod_adresy> # <udt:Kod_objektu>18945341</udt:Kod_objektu> # <udt:PCD>649906</udt:PCD> # </dtt:Adresa_UIR> # </are:Adresa_ARES> # </are:Identifikace> # <are:Priznaky_subjektu>NNAANANANNAANNNNNNNNPNNNANNNNN</are:Priznaky_subjektu> # </are:Zaznam> # </are:Odpoved> # </are:Ares_odpovedi> EXAMPLE3 # Pragmas. use strict; use warnings; # Modules. use WebService::Ares; # Object. my $obj = WebService::Ares->new; # Get commands. my @commands = $obj->commands; # Print commands. print join "\n", @commands; print "\n"; # Output: # standard DEPENDENCIES Ares::Standard, Class::Utils, Error::Pure, HTTP::Request, LWP::UserAgent. SEE ALSO Ares::Standard. REPOSITORY <https://github.com/tupinek/WebService-Ares> AUTHOR Michal Å paÄek skim@cpan.org LICENSE AND COPYRIGHT BSD license. VERSION 0.01