Business::Edifact::Message − Class that models Edifact Messages
Version 0.07
Parses an individual Edifact message Message objects are instantiated by Business::Edifact::Interchange and an array of them is returned in its messages function
$interchange−>parse($incoming);
my $m_array = $interchange−>messages();
for my $msg (@{$m_array}) {
...retrieve message data
}
new
Called by Business::Edifact::Interchange to instantiate a new Message object. The caller passes the header fields with the reference number identifier and message type
add_segment
Process the next data segment
type
return the message’s type e.g. ’ QUOTES ’ or ’ ORDERS ’
function
Returns the message’s function field May be ’original’ or ’retransmission’
message_code
Returns 3 character message code from the BGM message
currency_code
reference_number
date_of_message
items
return the list of lineitems
handle_bgm
handle_dtm
NB DTM can occur in different segment groups
handle_pat
handle_rff
handle_cux
handle_nad
handle_lin
handle_pia
handle_imd
handle_qty
handle_gir
handle_moa
handle_tax
handle_alc
handle_rte
handle_loc
handle_pri
handle_uns
handle_cnt
handle_ftx
handle_pcd
clear_item_flags
clear flags at start of new item or summary
Colin Campbell, "<colinsc AT cpan DOT org>"
Please report any bugs or feature requests to "bug−edifact−interchange at rt.cpan.org", or through the web interface at <http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Business−Edifact−Interchange>. I will be notified, and then you’ll automatically be notified of progress on your bug as I make changes.
You can find documentation for this module with the perldoc command.
perldoc Business::Edifact::Message
Copyright 2011−2014 Colin Campbell.
This program is free software; you can redistribute it and/or modify it under the terms of either: the GNU General Public License as published by the Free Software Foundation; or the Artistic License.
See http://dev.perl.org/licenses/ for more information.