davorg

#!/usr/bin/perl

use strict;
use warnings;
use 5.010;

BEGIN {
    no strict 'refs';
    use Symbol ();
    use Devel::Peek;

davorg

On Wed, Dec 16, 2015 at 11:37:46AM +0000, Dave Cross <[email protected]> wrote:
> Hi Marc,
> 
> It seems that your blog post at
> 
>   http://blog.schmorp.de/2015-12-15-tidbits-cgipm-a-data-point.html
> 
> jumped to some some conclusions that aren't backed up by the facts.

Dave, I am only reporting about that site, and the only newer version of

davorg

#!/usr/bin/perl

use strict;
use warnings;
use 5.010;

use Time::Piece;
use Time::Seconds;
use Lingua::EN::Inflexion;

davorg

#!/usr/bin/perl

use strict;
use warnings;

use CGI qw/:standard/;
print header;

##
## property detail - shows a single property

davorg

#!/usr/bin/perl

use strict;
use warnings;
use 5.024;

package SVG::TrafficLight;

use Moose;
use SVG;

davorg

#!/usr/bin/perl

use strict;
use warnings;
use feature 'say';
use Storable;

my $hashref;
my $hash_file = 'hashfile';

davorg

#!/usr/bin/perl -CS

use strict;
use warnings;
use utf8;
use feature 'say';

use Web::Query;

my $page = 'https://www.nme.com/blogs/nme-blogs/' .

davorg

#!/usr/bin/perl

use strict;
use warnings;
use CGI qw(param header);

my $title = 'Blood Test';
my $content = param('bloodtype') ? get_results() : get_form();

print header;

davorg

#!/usr/bin/perl

use strict;
use warnings;

use SVG;

my $PICWIDTH = 22;

my $svg = SVG->new(width => 184, height => 200);

davorg

#!/usr/bin/perl
#
# Perl Weekly Challenge #19 / Task #1
# 
# Write a script to display months from the year 1900 to 2019 where
# you find 5 weekends i.e. 5 Friday, 5 Saturday and 5 Sunday.

use strict;
use warnings;
use feature 'say';