View on
MetaCPAN
search.cpan.org is shutting down
For details read Perl NOC. After June 25th this page will redirect to MetaCPAN.org
Guillaume Aubert > Audit-DBI-1.5.1 > Audit::DBI::Utils

Download:
Audit-DBI-1.5.1.tar.gz

Dependencies

Annotate this POD

Website

CPAN RT

Open  0
View/Report Bugs
Module Version: v1.5.1   Source   Latest Release: Audit-DBI-v1.9.0

NAME ^

Audit::DBI::Utils - Utilities for the Audit::DBI distribution.

VERSION ^

Version 1.5.1

SYNOPSIS ^

        use Audit::DBI::Utils;
        
        my $ip_address = Audit::DBI::Utils::integer_to_ipv4( $integer );
        
        my $integer = Audit::DBI::Utils::ipv4_to_integer( $ip_address );
        
        my $differences = Audit::DBI::Utils::diff_structures(
                $data_structure_1,
                $data_structure_2,
                comparison_function => sub { my ( $a, $b ) = @_; $a eq $b; }, #optional
        );

FUNCTIONS ^

stringify_data_structure()

        my $string = Audit::DBI::Utils::stringify_data_structure(
                data_structure             => $data_structure,
                object_stringification_map =>
                {
                        'Math::Currency' => 'as_float',
                },
        );

integer_to_ipv4()

Convert a 32-bits integer representing an IP address into its IPv4 form.

        my $ip_address = Audit::DBI::Utils::integer_to_ipv4( $integer );

ipv4_to_integer()

Convert an IPv4 address to a 32-bit integer.

        my $integer = Audit::DBI::Utils::ipv4_to_integer( $ip_address );

diff_structures()

Return the differences between the two data structures passed as parameter.

If provided, the "equality_function" parameter provides a coderef to an alternative equality function for comparison of the scalars in the leaf nodes of the data structures. By default, 'eq' is used, but by providing a function that takes two parameters, diff_structures will perform any equality test.

        my $differences = Audit::DBI::Utils::diff_structures(
                $data_structure_1,
                $data_structure_2,
                comparison_function => sub { my ( $a, $b ) = @_; $a eq $b; }, #optional
        );

AUTHOR ^

Guillaume Aubert, <aubertg at cpan.org>.

BUGS ^

Please report any bugs or feature requests to bug-audit-dbi at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Audit-DBI. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

SUPPORT ^

You can find documentation for this module with the perldoc command.

    perldoc Audit::DBI::Utils

You can also look for information at:

ACKNOWLEDGEMENTS ^

Thanks to ThinkGeek (http://www.thinkgeek.com/) and its corporate overlords at Geeknet (http://www.geek.net/), for footing the bill while I write code for them!

COPYRIGHT & LICENSE ^

Copyright 2012 Guillaume Aubert.

This program is free software; you can redistribute it and/or modify it under the terms of the Artistic License.

See http://dev.perl.org/licenses/ for more information.

syntax highlighting: