davorg

#!/usr/bin/perl

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

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

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 CGI qw/:standard/;
print header;

##
## property detail - shows a single property

davorg

#!/usr/bin/perl

use strict;
use warnings;
use 5.010;

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

davorg

On Wed, Dec 16, 2015 at 11:37:46AM +0000, Dave Cross <dave@perlhacks.com> 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;

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

davorg

#!/usr/bin/perl

use strict;
use warnings;
use 5.010;

my %letter;
@letter{'a' .. 'z'} = reverse 'a' .. 'z';

open my $word_fh, '<', '/usr/share/dict/words' or die $!;

davorg

### Keybase proof

I hereby claim:

  * I am davorg on github.
  * I am davorg (https://keybase.io/davorg) on keybase.
  * I have a public key whose fingerprint is 4D8C A086 7A90 F3F0 AD97  F554 2A0F E00B D8E3 5D11

To claim this, I am signing this object:

davorg

#!/usr/bin/perl

use strict;
use warnings;
use 5.010;

my %data;

open my $fh2, '<', 'file2.txt' or die $!;

davorg

#!/usr/bin/perl

use strict;
use warnings;
use 5.010;
use Digest::MD5 'md5_hex';

my %seen;

while (<DATA>) {