openbsd/OpenBSDTorrents/lib/BT/MetaInfo/Cached.pm - diff

Return to Cached.pm CVS log

Up to [local] / openbsd / OpenBSDTorrents / lib / BT / MetaInfo

version 1.1, 2005/05/02 20:37:28

version 1.2, 2005/05/02 20:43:44

Line 1

# $Id$

use strict;

package BT::OBTMetaInfo;

require 5.6.0;

use strict;

use vars qw( $VERSION @ISA );

use BT::MetaInfo;

$VERSION = do { my @r = (q$Revision$ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };

use Data::Dumper;

$VERSION = do { my @r = (q$Id$ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };

sub new

{

my $classname = shift;

my $pass = shift;

print Dumper $classname;

exit;

my $self = $classname->SUPER::new(@_);

# my $self = $classname->SUPER::new(@_);

}

sub info_hash { return(sha1(bencode($_[0]->info))); }