[BACK]Return to Cached.pm CVS log [TXT][DIR] Up to [local] / openbsd / OpenBSDTorrents / lib / BT / MetaInfo
File: [local] / openbsd / OpenBSDTorrents / lib / BT / MetaInfo / Cached.pm (download)

Revision 1.2, Mon May 2 19:43:44 2005 UTC (19 years, 2 months ago) by andrew
Branch: MAIN
Changes since 1.1: +11 -4 lines 

just to get a version number in the Id

# $Id: Cached.pm,v 1.2 2005/05/02 19:43:44 andrew Exp $
use strict;

package BT::OBTMetaInfo;

require 5.6.0;
use vars qw( $VERSION @ISA );

use BT::MetaInfo;

use Data::Dumper;

$VERSION = do { my @r = (q$Id: Cached.pm,v 1.2 2005/05/02 19:43:44 andrew Exp $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };

sub new
{
	my $classname	= shift;
	print Dumper $classname;
	exit;

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


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

1