Date: 8 Nov 2002 22:26:41 -0000 From: Brian Skrab <brian@quynh-and-brian.org> To: FreeBSD-gnats-submit@FreeBSD.org Subject: ports/45255: New port: Perl Class::Hook trace method calls to other classes Message-ID: <20021108222641.89457.qmail@fs.quynh-and-brian.org>
next in thread | raw e-mail | index | archive | help
>Number: 45255 >Category: ports >Synopsis: New port: Perl Class::Hook trace method calls to other classes >Confidential: no >Severity: non-critical >Priority: low >Responsible: freebsd-ports >State: open >Quarter: >Keywords: >Date-Required: >Class: change-request >Submitter-Id: current-users >Arrival-Date: Tue Nov 12 18:30:01 PST 2002 >Closed-Date: >Last-Modified: >Originator: Brian Skrab >Release: FreeBSD 4.7-RELEASE i386 >Organization: disorganization >Environment: System: FreeBSD fs.quynh-and-brian.org 4.7-RELEASE FreeBSD 4.7-RELEASE #1: Sun Oct 27 20:55:39 EST 2002 toor@fs.quynh-and-brian.org:/usr/src/sys/compile/FS i386 >Description: Perl module Class::Hook enables you to trace methods calls from your code to other classes. >How-To-Repeat: >Fix: --- ports.p5-Class-Hook.shar begins here --- # This is a shell archive. Save it in a file, remove anything before # this line, and then unpack it by entering "sh file". Note, it may # create directories; files and directories will be owned by you and # have default permissions. # # This archive contains: # # p5-Class-Hook # p5-Class-Hook/Makefile # p5-Class-Hook/distinfo # p5-Class-Hook/pkg-comment # p5-Class-Hook/pkg-descr # p5-Class-Hook/pkg-plist # echo c - p5-Class-Hook mkdir -p p5-Class-Hook > /dev/null 2>&1 echo x - p5-Class-Hook/Makefile sed 's/^X//' >p5-Class-Hook/Makefile << 'END-of-p5-Class-Hook/Makefile' X# New ports collection makefile for: p5-Class-Hook X# Date created: Fri Nov 7 19:40:58 EST 2002 X# Whom: Brian Skrab <brian@quynh-and-brian.org> X# X# $FreeBSD$ X# X XPORTNAME= Class-Hook XPORTVERSION= 0.01 XCATEGORIES= devel perl5 XMASTER_SITES= ${MASTER_SITE_PERL_CPAN} \ X http://cottage.quynh-and-brian.org/freebsd/ports/distfiles/ XMASTER_SITE_SUBDIR= Class XPKGNAMEPREFIX= p5- X XMAINTAINER= brian@quynh-and-brian.org X XBUILD_DEPENDS= ${SITE_PERL}/Time/HiRes.pm:${PORTSDIR}/devel/p5-Time-HiRes X XPERL_CONFIGURE= yes X XMAN3= Class::Hook.3 XMANPREFIX= ${PREFIX}/lib/perl5/${PERL_VERSION} X XSITE_PERL= ${LOCALBASE}/lib/perl5/site_perl/${PERL_VER}/${PERL_ARCH} X X.include <bsd.port.mk> END-of-p5-Class-Hook/Makefile echo x - p5-Class-Hook/distinfo sed 's/^X//' >p5-Class-Hook/distinfo << 'END-of-p5-Class-Hook/distinfo' XMD5 (Class-Hook-0.01.tar.gz) = 2673eaf63bd9beb587c0425418fa926e END-of-p5-Class-Hook/distinfo echo x - p5-Class-Hook/pkg-comment sed 's/^X//' >p5-Class-Hook/pkg-comment << 'END-of-p5-Class-Hook/pkg-comment' XAdd hooks on methods from other classes END-of-p5-Class-Hook/pkg-comment echo x - p5-Class-Hook/pkg-descr sed 's/^X//' >p5-Class-Hook/pkg-descr << 'END-of-p5-Class-Hook/pkg-descr' XClass::Hook enables you to trace methods calls from your code to other classes. X XInstead of putting 'use Foo;' in your code, simply type 'use Class::Hook;'. XThe class Foo is unknown in your code. It will be magically catched by XClass::Hook which will call Foo itself. You can see Class::Hook as a kind of Xrelay. X XYou can setup a subroutine to be called before any call to Foo->amethod and a Xsubroutine to be called after the call. Your subs will receive all the Xinformation that Foo->amethod will receive, so you can trace everything Xbetween your code and Foo. X XWWW: http://search.cpan.org/search?dist=Class-Hook X X~brian skrab X brian@quynh-and-brian.org END-of-p5-Class-Hook/pkg-descr echo x - p5-Class-Hook/pkg-plist sed 's/^X//' >p5-Class-Hook/pkg-plist << 'END-of-p5-Class-Hook/pkg-plist' Xlib/perl5/site_perl/%%PERL_VER%%/Class/Hook.pm Xlib/perl5/site_perl/%%PERL_VER%%/Class/FOO.pm Xlib/perl5/site_perl/%%PERL_VER%%/%%PERL_ARCH%%/auto/Class/Hook/.packlist X@dirrm lib/perl5/site_perl/%%PERL_VER%%/%%PERL_ARCH%%/auto/Class/Hook X@unexec rmdir %D/lib/perl5/site_perl/%%PERL_VER%%/%%PERL_ARCH%%/auto/Class 2>/dev/null || true X@unexec rmdir %D/lib/perl5/site_perl/%%PERL_VER%%/Class 2>/dev/null || true END-of-p5-Class-Hook/pkg-plist exit --- ports.p5-Class-Hook.shar ends here --- >Release-Note: >Audit-Trail: >Unformatted: To Unsubscribe: send mail to majordomo@FreeBSD.org with "unsubscribe freebsd-ports" in the body of the message
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?20021108222641.89457.qmail>