Changeset 22397 for lang/perl/Class-Accessor-Installer

Timestamp:

10/31/08 00:38:11 (5 years ago)

Author:

hanekomu

Message:

generate ptags if necessary (Florian)

Location:

lang/perl/Class-Accessor-Installer/trunk

Files:

• Changes (modified) (1 diff)
• lib/Class/Accessor/Installer.pm (modified) (2 diffs)

lang/perl/Class-Accessor-Installer/trunk/Changes

@@ -1 +1 @@
 Revision history for Perl extension Class-Accessor-Installer
+
+0.04 Thu Oct 30 16:23:28 CET 2008 (Marcel Gruenauer <marcel@cpan.org>)
+     - Generate ptags if $::PTAGS is set (Florian Helmberger)
 
 0.03  Thu Jul 25 15:27:43 CEST 2008 (Marcel Gruenauer <marcel@cpan.org>)

lang/perl/Class-Accessor-Installer/trunk/lib/Class/Accessor/Installer.pm

@@ -7 +7 @@
 
 
-our $VERSION = '0.03';
+our $VERSION = '0.04';
 
 
@@ -21 +21 @@
     $name = [ $name ] unless ref $name eq 'ARRAY';
 
+    my @caller;
+    if ($::PTAGS) {
+        my $level = 1;
+        do { @caller = caller($level++) } 
+            while $caller[0] =~ /^Class(::\w+)*::Accessor::/o;
+    }
+
+
     for my $sub (@$name) {
         no strict 'refs';
+
+        printf "%s\t%s\t%s\n", $sub, @caller[1,2] if $::PTAGS;
         *{"${pkg}::${sub}"} = subname "${pkg}::${sub}" => $code;