pdl

diff -r MyWeb-App/lib/MyWeb/App.pm MyWeb-App-2/lib/MyWeb/App.pm
3c3
< 
---
> set serializer => 'JSON';
9a10,14
> post '/test/' => sub {
>     my $data = from_json( param('json'), {utf8 => 0});
>     return { msg => $data->{q} }
> };

pdl

use strict;
use warnings;

my @comparanda;
my @similar;
my $opts = {};

@similar = grep {  0 == ($a->{$opts->{'name'}}  cmp $b->{$opts->{'name'}}) } @comparanda; # case 1 - this is what I mean
@similar = grep { (0 ==  $a->{$opts->{'name'}}) cmp $b->{$opts->{'name'}}  } @comparanda; # case 2 - I can see why perl might think this
@similar = grep {  0 ==  $a->{$opts->{'name'}}  cmp $b->{$opts->{'name'}}  } @comparanda; # case 3 is either 1 or 2

pdl

use strict;
use warnings;
my @LINES = qw(artichoke beetroot cabbage);

while (my $in = shift(@LINES)) {
	my $results = [];
	sub result {
		push @$results, shift;
	}
	result(uc $in);

pdl

use strict;
use warnings;
use List::Util qw(reduce);

my @in = (1,2,3,4,5,6,8,9,10,12,16,17,18,21);

print join (',',

	map { defined $_->[1] ? "$_->[0]..$_->[-1]": $_->[0] }
	@{

pdl

#!perl -w

my $hashref = {

#
# POD may not appear here
#
	p => sub{
	
=pod

pdl

#!perl -w

=head1 NAME

pl2py.pl

=head1 DESCRIPTION

Attempts to convert perl scripts to python with the awesome power of regular expressions.

pdl

package Acme::Object::Overloaded;

use overload '""' => sub{ 'String' }, '0+' => sub{ 123 }, 'fallback' => '0+';

sub new{
	bless {}, shift;
}
1;

package main;

pdl

use strict;
use warnings;
use 5.010;

{
  package A;
	our $hash={1=>'i',2=>'j'};
}

{

pdl

no less; use strict; use warnings;
open (my $fhIN, '<', $0) or die; my @lines = <$fhIN>;
open (my $fhOUT, '>', $0) or die;
print $fhOUT sort {$a cmp $b} @lines;

pdl

#!perl
use strict;
use warnings;
use Test::More;

sub first_or_all {
	return @_ if wantarray;
	return shift;
}