File Coverage

blib/lib/Boulder/Simple.pm

Criterion	Covered	Total	%
statement	9	60	15.0
branch	0	32	0.0
condition	0	3	0.0
subroutine	3	8	37.5
pod	4	5	80.0
total	16	108	14.8

# Copyright (c) 2004 Timothy Appnel
# http://www.timaoutloud.org/
# This code is released under the Artistic License.
#
# Boulder::Simple - a class for simple Boulder IO interaction.
# DEPRECATED. Use Boulder::Util instead.
#

package Boulder::Simple;

use strict;
use CGI::Util qw( unescape escape );

use vars qw( $VERSION );
$VERSION = '0.021';

sub save {
    my($class,$filehandle,$data) = @_;
    $filehandle = to_filehandle($filehandle);
    local($,) = '';
    local($\) = '';
    $data = [ $data ] if (ref($data) eq 'HASH');
    foreach my $rec (@$data) {
        my $param;
        foreach $param (keys %$rec) {
            my($escaped_param) = escape($param);
            my @vals = ref($rec->{$param}) eq 'ARRAY' ?
                @{$rec->{$param}} : ( $rec->{$param} );
            my $v;
            foreach $v (@vals) {
                print $filehandle "$escaped_param=",escape("$v"),"\n";
            }
        }
        print $filehandle "=\n";
    }
}

sub load_as_query {
    my @lines = load(@_);
    return undef unless @lines;
    "@lines" =~ /=/ ? join("&",@lines) : join("+",@lines);
}

sub load_as_hash {
    my @lines = load(@_);
    return undef unless @lines;
    my %hash;
    foreach (@lines) {
        my($key,$value)=split /=/, $_, 2;
        next unless $key;
        $value = unescape($value);
        unless (exists($hash{$key})) {
            $hash{$key} = $value;
            next;
        }
        if (ref($hash{$key}) eq 'ARRAY') {
            push(@{$hash{$key}},$value);
        } else {
            $hash{$key} = [ $hash{$key}, $value ];
        }
    }
    \%hash;
}

sub load {
	my($class,$filehandle) = @_;
    my @lines;
	if (defined($filehandle) && ($filehandle ne '')) {
        while (<$filehandle>) {
          chomp;
          last if /^=/;
          push(@lines,$_);
        }
    }
    @lines;
}

# Borrowed from CGI so we don't have to load that package if
# we don't need to. Turns a string into a filehandle.
sub to_filehandle {
    my $thingy = shift;
    return undef unless $thingy;
    return $thingy if UNIVERSAL::isa($thingy,'GLOB');
    return $thingy if UNIVERSAL::isa($thingy,'FileHandle');
    if (!ref($thingy)) {
		my $caller = 1;
		while (my $package = caller($caller++)) {
			my($tmp) = $thingy=~/[\':]/ ? $thingy : "$package\:\:$thingy";
			return $tmp if defined(fileno($tmp));
		}
    }
    return undef;
}

1;

__END__