Perl has a MASSIVE set of great testing tools that come with it! The Perl core has several tens of thousands of automated checks for it, and for the most part they all use use these standard Perl frameworks. They’re all tied together using TAP – the Test Anything Protocol. The standard way of creating … Read more
Check out Module::ScanDeps and the “scandeps.pl” utility that comes with it. It can do a static (and recursive) analysis of your code for dependencies as well as the %INC dump either after compiling or running the program. Please note that the static source scanning always errs on the side of including too many dependencies. (It … Read more
For development, I install my own Perl and leave the system Perl alone. If I want to upgrade the system Perl, I use the system package manager. For my development Perl, I use the cpan tool. Since I keep those separate, I should never mess up the Perl that the system needs for its maintenance … Read more
In Perl, a carriage return will serve in any place where a regular space does. Backslashes are not used like in some languages; just add a CR. You can break strings up over multiple lines with concatenation or list operations: print “this is “, “one line when printed, “, “because print takes multiple “, “arguments … Read more
Well, I’m not much of a python programmer, but I’d say that the answer is ‘YES’. Any dynamic language that lets you create a variable with any name at any time, could use a ‘strict’ pragma. Strict vars (one of the options for strict in Perl, ‘use strict’ turns them all on at once) in … Read more
Try getting your answer from several places, first one wins: my $username = $ENV{LOGNAME} || $ENV{USER} || getpwuid($<);
Do you have a dependency loop? If Perl starts compiling your script and encounters a line like this: use PackageA; Perl pauses the compilation of your script; locates PackageA.pm and starts compiling it. If it encounters a line like this: use PackageB; Perl pauses the compilation of PackageA; locates PackageB.pm and starts compiling it. Normally, … Read more
Set $Data::Dumper::Sortkeys = 1 to get Perl’s default sort order. If you want to customize the order, set $Data::Dumper::Sortkeys to a reference to a subroutine that receives a reference to a hash as input, and outputs a reference to the list of the hash’s keys in the order you want them to appear. # sort … Read more
(sub { … }) will give you the pointer to the function so you must call by reference. (sub { print “Hello world\n” })->(); The other easy method, as pointed out by Blagovest Buyukliev would be to dereference the function pointer and call that using the { } operators &{ sub { print “Hello World” … Read more
I’d usually write this as: $review = ( defined($model->test) ? 1 : ” ); where the parentheses are for clarity for other people reading the code.