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.1

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