Re^7: writing a pragma

sure its possible, but such a thing shouldn't be a pragma :) see caller and open and import and splice and zentara package/module tutorial....

use NotAPragma;
...
[download]

NotAPragma.pm

package NotAPragma;
sub import {
   my ($package, $filename, $line) = caller;
   open my($infh), '<:raw', $filename
      or die "Can't open caller $filename : $!";
   my @lines = ( 'pad', readline $infh );
   close $infh;
   splice @lines, 0, $line;
   print "@lines\n"; ## << this is the ... after use NotAPragma;
}
1;
[download]

Comment on Re^7: writing a pragma Select or Download Code

Replies are listed 'Best First'.
Re^8: writing a pragma by karthikasasanka (Acolyte) on Apr 28, 2014 at 09:17 UTC
Thank you the solution. can you please explain y it should not be pragma. does it affect anything if we write it as pragma.	[reply]
Re^9: writing a pragma by Anonymous Monk on Apr 28, 2014 at 09:53 UTC
can you please explain y it should not be pragma. Because it is not a pragma, the end ; Its perlstyle convention that only pragmas be named like pragmas because only pragmas are pragmas :) does it affect anything if we write it as pragma maybe :) does it affect anything if you label a jar of "hot mustard" as "eye drops"? Food for thought Is it a pragma or a module?, RFC : Pragma vs. Module	[reply]
Re^10: writing a pragma by karthikasasanka (Acolyte) on May 06, 2014 at 05:01 UTC
Thank you very much for the reply and the solution.	[reply]