Return to Cached.pm CVS log

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

Annotation of openbsd/OpenBSDTorrents/lib/BT/MetaInfo/Cached.pm, Revision 1.2

1.2     ! andrew      1: # $Id$
        !             2: use strict;
        !             3:
1.1       andrew      4: package BT::OBTMetaInfo;
                      5:
                      6: require 5.6.0;
1.2     ! andrew      7: use vars qw( $VERSION @ISA );
1.1       andrew      8:
                      9: use BT::MetaInfo;
                     10:
1.2     ! andrew     11: use Data::Dumper;
1.1       andrew     12:
1.2     ! andrew     13: $VERSION = do { my @r = (q$Id$ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
        !            14:
1.1       andrew     15: sub new
                     16: {
                     17:        my $classname   = shift;
1.2     ! andrew     18:        print Dumper $classname;
        !            19:        exit;
1.1       andrew     20:
1.2     ! andrew     21: #      my $self        = $classname->SUPER::new(@_);
1.1       andrew     22: }
                     23:
                     24:
                     25: sub info_hash { return(sha1(bencode($_[0]->info))); }
                     26:
1.2     ! andrew     27: 1