The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

NAME

Business::Shipping::Config - Configuration functions

DESCRIPTION

Among other things, this module implements a simple API on top of the Config::IniFiles module.

METHODS

cfg()

Returns config hashref.

cfg_obj()

Returns config hashref.

support_files()

Returns the path of the support_files directory.

config_to_hash( $ary, $del )

 $ary   Key/value pairs
 $del   Delimiter for the above array (tab is default)

Builds a hash from an array of lines containing key / value pairs, like so:

 key1    value1
 key2    value2
 key3    value3

config_to_ary_of_hashes( 'configuration_parameter' )

Reads in the configuration hashref ( e.g. cfg()->{ primary }->{ secondary } ), then returns an array of hashes. For example:

This:

 [invalid_rate_requests]
 invalid_rate_requests_ups=<<EOF
 service=XDM    to_country=Canada    reason=Not available.
 service=XDM    to_country=Brazil
 EOF

When called with this:

 my @invalid_rate_requests_ups = config_to_ary_of_hashes( 
     cfg()->{ invalid_rate_requests }->{ invalid_rate_requests_ups }
 );

Returns this:

 [ 
     {
         service    => 'XDM',
         to_country => 'Canada',
         reason     => 'Not available.',
     },
     {
         service    => 'XDM',
         to_country => 'Brazil',
     },
 ]

data_dir_name()

The name of the data_dir (e.g. "data").

data_dir()

The path of the data_dir (e.g. "/var/perl/Business-Shipping/data").

get_req_mod()

Return a list of the required modules for a given shipper. Return all if no shipper is given.

calc_req_mod()

Determine if the required modules for each shipper are available, in turn.

AUTHOR

Daniel Browning, db@kavod.com, http://www.kavod.com/

COPYRIGHT AND LICENCE

Copyright 2003-2011 Daniel Browning <db@kavod.com>. All rights reserved. This program is free software; you may redistribute it and/or modify it under the same terms as Perl itself. See LICENSE for more info.