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>