David Muir Sharnoff > File-Slurp-Remote > Tie::Function::Examples

Download:
modules/File-Slurp-Remote-0.44.tar.gz

Dependencies

Annotate this POD

View/Report Bugs
Module Version: 0.44   Source  

NAME ^

 Tie::Function::Examples - tie functions to the the read side of hashes

SYNOPSIS ^

 use Tie::Function::Examples;
 use Tie::Function::Examples qw(%thoucomma %nothoucomma %addcents %q_shell %round %sprintf);

 tie %array, 'Tie::Function::Examples', \&function;

EXAMPLES ^

        use Tie::Function::Examples;

        tie %double, 'Tie::Function::Examples', 
                sub {
                        my ($key) = @_;
                        return $key * 2 if $key != 0;
                        return $key.$key;
                };

        print "2 * 2 is $double{2}\n";


        use Tie::Function::Examples qw(%thoucomma %addcents);

        tie %mymoney, 'Tie::Function::Examples',
                sub {
                        my ($key, $underlying_array) = @_;
                        return "\$$thoucomma{$addcents{$underlying_array->{$key}}";
                };

        $mymoney{joe} = 7000;
        print "$mymoney{joe}\n" # prints $7,000.00

DESCRIPTION ^

Tie::Function::Examples provides a simple method to tie a function to a hash.

The function is passed two arguments: the key used to access the array and a reference to a hash that is used for all non-read accesses to the array.

PREDEFINED BINDINGS ^

The following hashes are bound and can be imported from Tie::Function::Examples.

%thoucomma

Adds commas to numbers. "7000.32" becomes "7,000.32"

%nothoucomma

Removes commas from numbers. "7,000.32" becomes "7000.32"

%addcents

Make sure that numbers end two places to the right of the decimal. "7000" becomes "7000.00" and "7000.149" becomes "7000.15".

%q_perl

Quote strings for use in perl eval.

%q_shell

Quotes file names quoted for use on a command line with the bash shell. This will sometimes put 'single quotes' around the file name and other times it will leave it bare.

%round

This will round a number to the nearest integer. If you want a different rounding-point, use a pseudo-two dimensional lookup to provide a scale. Use "0.01" to round to the nearest penny and "1000" to round to the nearest thousand. For example: $round{38.7, 10} will round up to 40.

%sprintf

Use a comma to do a pseudo-multi-dimensional lookup to specify both a format and arguments. Obviously, none of the arguments can have the ASCII character that is equal to the perl $; variable. Example: $sprintf{"%07d", 82} will interpolate to "0000082".

%line_numbers

Add line numbers to a block of text.

LICENSE ^

Copyright (C) 2008-2007,2008-2010 David Sharnoff. Copyright (C) 2007-2008 SearchMe Inc. Copyright (C) 2011 Google Inc. This package may be used and redistributed under the terms of either the Artistic 2.0 or LGPL 2.1 license.

syntax highlighting: