# $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