File Coverage

lib/Graph/Easy/Util.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch	6	6	100.0
condition	3	3	100.0
subroutine	6	6	100.0
pod	2	2	100.0
total	38	38	100.0

package Graph::Easy::Util;

use strict;
use warnings;

use base 'Exporter';

our @EXPORT_OK = (qw(first_kv ord_values));

use List::Util qw(minstr);

=head1 FUNCTIONS

=head2 first_kv($hash_ref)

The first key value pair from a hash reference - lexicographically.

=cut

sub first_kv
{
    my $href = shift;

    my $n = minstr( keys(%$href) );
    my $v = $href->{$n};

    return ($n, $v);
}

=head2 ord_values($hash_ref)

The values of the hash ordered by a lexicographical keyname.

=cut

sub ord_values
{
    my $href = shift;

    if ((!defined $href) || (! %$href))
    {
        return (wantarray ? () : 0);
    }
    else
    {
        return (wantarray ? @{$href}{sort keys( %$href )} : scalar(keys(%$href)));
    }
}

1;