File Coverage

blib/lib/Sort/SQL.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch	7	8	87.5
condition	1	4	25.0
subroutine	5	5	100.0
pod	2	2	100.0
total	40	44	90.9

package Sort::SQL;

use strict;
use warnings;
use vars qw( $VERSION );    # for version 5.005...

$VERSION = '0.08';

my $debug = $ENV{PERL_DEBUG} || 0;

sub parse {
    my $class = shift;
    my $order = shift || '';    # will return empty array

    my @s = split( m/[\ ,]+/, $order );
    my @pairs;

    while ( my ( $prop, $dir ) = splice( @s, 0, 2 ) ) {

        $debug and warn sprintf( "prop='%s'  dir='%s'\n", $prop, $dir || '' );

        next if $prop =~ m/[^\.\w]/;    # avoid sql injection

        if ( !defined $dir ) {
            $dir = 'ASC';
        }
        elsif ( $dir !~ m/^(ASC|DESC)$/i ) {
            unshift( @s, $dir );
            $dir = 'ASC';
        }

        push @pairs, [ $prop => uc($dir) ];
    }

    return \@pairs;
}

sub string2array {
    my $pairs = shift->parse(@_);
    return [
        map {
            { $_->[0] => $_->[1] }
            } @$pairs
    ];
}

1;
__END__