utf8 without env vars

master
karchnu 8 years ago
parent c563daacc7
commit 417d88924d

@ -1,6 +1,8 @@
#!/usr/bin/perl -w
use v5.14;
use autodie;
use utf8;
use open qw/:std :utf8/;
use Modern::Perl;
use Data::Dump qw( dump );
@ -9,7 +11,6 @@ use lib './lib/';
use configuration ':all';
use encryption ':all';
use app;
use utf8;
if( @ARGV != 1 ) {
say "usage : ./$0 domain";

@ -1,6 +1,8 @@
#!/usr/bin/perl -w
use v5.14;
use autodie;
use utf8;
use open qw/:std :utf8/;
use Modern::Perl;
#use DNS::ZoneParse;
@ -10,7 +12,6 @@ use Data::Dump qw( dump );
use lib './lib/';
use configuration ':all';
use app;
use utf8;
if( @ARGV != 0 ) {
say "usage : ./$0";

@ -2,6 +2,7 @@
use v5.14;
use autodie;
use utf8;
use open qw/:std :utf8/;
use Modern::Perl;
use Data::Dump qw( dump );

@ -1,6 +1,8 @@
#!/usr/bin/perl -w
use v5.14;
use autodie;
use utf8;
use open qw/:std :utf8/;
use Modern::Perl;
use Data::Dump qw( dump );
@ -9,7 +11,6 @@ use lib './lib/';
use configuration ':all';
use encryption ':all';
use app;
use utf8;
if( @ARGV != 1 ) {
say "usage : ./$0 login";

@ -1,6 +1,8 @@
#!/usr/bin/perl -w
use v5.14;
use autodie;
use utf8;
use open qw/:std :utf8/;
use Modern::Perl;
use Data::Dump qw( dump );
@ -9,7 +11,6 @@ use lib './lib/';
use configuration ':all';
use encryption ':all';
use app;
use utf8;
if( @ARGV != 2 ) {
say "usage : ./$0 login passwd";

@ -1,6 +1,8 @@
#!/usr/bin/perl -w
use v5.14;
use autodie;
use utf8;
use open qw/:std :utf8/;
use Modern::Perl;
use Data::Dump qw( dump );
@ -9,7 +11,6 @@ use lib './lib/';
use configuration ':all';
use encryption ':all';
use app;
use utf8;
if( @ARGV != 0 && @ARGV != 2 ) {
say "usage : ./$0 [ login passwd ]";

@ -1,6 +1,8 @@
#!/usr/bin/perl -w
use v5.14;
use autodie;
use utf8;
use open qw/:std :utf8/;
use Modern::Perl;
use Data::Dump qw( dump );
@ -8,7 +10,6 @@ use Data::Dump qw( dump );
use lib './lib/';
use configuration ':all';
use app;
use utf8;
if( @ARGV != 1 ) {
say "usage : ./$0 user";

@ -1,6 +1,8 @@
#!/usr/bin/perl -w
use v5.14;
use autodie;
use utf8;
use open qw/:std :utf8/;
use Modern::Perl;
use Data::Dump qw( dump );

@ -1,13 +1,14 @@
#!/usr/bin/perl -w
use v5.14;
use autodie;
use utf8;
use open qw/:std :utf8/;
use Modern::Perl;
use lib './lib/';
use configuration ':all';
use encryption ':all';
use app;
use utf8;
if( @ARGV != 2 ) {
say "usage : ./$0 login ndd ";

@ -1,13 +1,14 @@
#!/usr/bin/perl -w
use v5.14;
use autodie;
use utf8;
use open qw/:std :utf8/;
use Modern::Perl;
use lib './lib/';
use configuration ':all';
use encryption ':all';
use app;
use utf8;
if( @ARGV != 1 ) {
say "usage : ./$0 ndd ";

@ -3,6 +3,8 @@ package MyWeb::App;
use v5.14;
use strict;
use warnings;
use utf8;
use open qw/:std :utf8/;
use Dancer2;
use Dancer2::Plugin::Deferred;
@ -10,7 +12,6 @@ use File::Basename;
#use Storable qw( freeze thaw );
#$Storable::Deparse = true;
#$Storable::Eval=true;
use utf8;
use YAML::XS;
use configuration ':all';

@ -3,6 +3,7 @@ package rt::admin;
use configuration ':all';
use app;
use utf8;
use open qw/:std :utf8/
use Data::Dump qw( dump );

@ -3,6 +3,7 @@ package rt::adminfake;
use configuration ':all';
use app;
use utf8;
use open qw/:std :utf8/
use Data::Dump qw( dump );

@ -6,6 +6,7 @@ use encryption ':all';
use util ':all';
use app;
use utf8;
use open qw/:std :utf8/
use Dancer ':syntax';
use Data::Dump qw( dump );
use Data::Validate::IP qw(is_ipv4 is_ipv6);

@ -6,6 +6,7 @@ use encryption ':all';
use util ':all';
use app;
use utf8;
use open qw/:std :utf8/
use Dancer ':syntax';
use Data::Dump qw( dump );
use Data::Validate::IP qw(is_ipv4 is_ipv6);

@ -3,6 +3,7 @@ package rt::root;
use configuration ':all';
use app;
use utf8;
use open qw/:std :utf8/
use Exporter 'import';
# what we want to export eventually

@ -3,6 +3,7 @@ package rt::rootfake;
use configuration ':all';
use app;
use utf8;
use open qw/:std :utf8/
use Exporter 'import';
# what we want to export eventually

@ -5,6 +5,7 @@ use configuration ':all';
use encryption ':all';
use app;
use utf8;
use open qw/:std :utf8/
use YAML::XS;

@ -5,6 +5,7 @@ use configuration ':all';
use encryption ':all';
use app;
use utf8;
use open qw/:std :utf8/
use YAML::XS;

@ -2,9 +2,10 @@
use v5.14;
use strict;
use warnings;
use utf8;
use open qw/:std :utf8/;
use File::Basename;
use utf8;
use YAML::XS;
use configuration ':all';
use util ':all';

Loading…
Cancel
Save