bagder: curl-www/dl pbase.pm,NONE,1.1

Update of /cvsroot/curl/curl-www/dl
In directory labb.contactor.se:/tmp/cvs-serv19714/dl

Added Files:
	pbase.pm 
Log Message:
added this missing perl module


--- NEW FILE: pbase.pm ---
#        _
#  _ __ | |__   __ _ ___  ___
# | '_ \| '_ \ / _` / __|/ _ \
# | |_) | |_) | (_| \__ \  __/
# | .__/|_.__/ \__,_|___/\___|
# |_| 
#
# A simple database in pure perl.
# 
# Main author: [email protected]
#
# Non-commercial use: Do whatever you want with it. If you add something 
# usefull then send me a copy of it so I can replace the current version.
#
# Commercial use: Send me an email and tell me that you use it.
#
# pbase has borrowed main functionality, the database file format and some
# other ideas of "dbase" made by [email protected].  dbase is an
# executable standalone database handler, while pbase is a perl-included
[...1220 lines suppressed...]
{
    my($self, $subroutine)=@_;

    @{$self->{selectionlist}[$self->{selection}]} = 
        sort {&$subroutine(\%{$self->{Database}[$a]}, 
                            \%{$self->{Database}[$b]}) } @{$self->{selectionlist}[$self->{selection}]};
}

#                     _
# __   _____ _ __ ___(_) ___  _ __
# \ \ / / _ \ '__/ __| |/ _ \| '_ \
#  \ V /  __/ |  \__ \ | (_) | | | |
#   \_/ \___|_|  |___/_|\___/|_| |_|
# Returning version of pbase
sub version
{
    return $version;
}



_______________________________________________
http://cool.haxx.se/mailman/listinfo/curl-www-commits