NAME

Business::Shipping::Util - Miscellaneous functions

VERSION

$Rev: 165 $ $Date: 2004-09-14 09:20:29 -0700 (Tue, 14 Sep 2004) $

DESCRIPTION

Many file-related functions, some others.

METHODS

• download_to_file( $url, $file )
• currency( $opt, $amount )

  Formats a number for display as currency in the current locale (currently, the only locale supported is USD).

  Analagous to $Tag->currency() in Interchange.

• _unzip_file( $zipName, $destination_directory )

  sub _unzip_file { my ( $zipName, $destination_directory ) = @_; $destination_directory ||= './';

  
      use Archive::Zip qw(:ERROR_CODES);
  

      my $zip = Archive::Zip->new();
      my $status = $zip->read( $zipName );
      if ( $status != AZ_OK )  {
          my $error = "Read of $zipName failed";
          #$self->user_error( $error );
          logdie $error;
      }
      if ( $@ ) { logdie "_unzip_file error: $@"; }
      
      $zip->extractTree( '', $destination_directory );
      
      return;
      }
  

• filename_only( $path )
• split_dir_file( $path )
• remove_extension( $file )
• remove_elements_of_x_that_are_in_y( $x, $y )
• remove_windows_carriage_returns( $path )
• readfile( $file )
• element_in_array( $element, @array )
• get_fh( $filename )
• close_fh( $file_handle )
• unique( @ary )

  Removes duplicates (but leaves at least one).

AUTHOR

Dan Browning <db@kavod.com>, Kavod Technologies, http://www.kavod.com.

COPYRIGHT AND LICENCE

Copyright (c) 2003-2004 Kavod Technologies, Dan Browning. 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.