• NAME
• DESCRIPTION
• EXPORT_OK
  • sql_match( $value, $exact? )
  • sort_port( $a, $b )
  • sort_modules( $modules )
  • interval_to_daterange( $interval )

NAME

App::Netdisco::Util::Web

DESCRIPTION

A set of helper subroutines to support parts of the Netdisco application.

There are no default exports, however the :all tag will export all subroutines.

EXPORT_OK

sql_match( $value, $exact? )

Convert wildcard characters "*" and "?" to "%" and "_" respectively.

Pass a true value to $exact to only substitute the existing wildcards, and not also add "*" to each end of the value.

In list context, returns two values, the translated value, and also an SQL::Abstract LIKE clause.

sort_port( $a, $b )

Sort port names of various types used by device vendors. Interface is as Perl's own sort - two input args and an integer return value.

sort_modules( $modules )

Sort devices modules into tree hierarchy based upon position and parent - input arg is module list.

interval_to_daterange( $interval )

Takes an interval in days, weeks, months, or years in a format like '7 days' and returns a date range in the format 'YYYY-MM-DD to YYYY-MM-DD' by subtracting the interval from the current date.

If $interval is not passed, epoch zero (1970-01-01) is used as the start.

                    cpanm App::Netdisco::Util::Web

                    perl -MCPAN -e shell
                    install App::Netdisco::Util::Web