This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
package Supplier; | |
use strict; | |
use warnings; | |
use Moo; | |
use Carp qw/croak/; | |
has 'code' => ( is => 'ro', required => 1 ); | |
has 'db_row' => ( is => 'lazy', builder => 1 ); |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/perl | |
use strict; | |
use warnings; | |
use Test::More; | |
use Test::Strict; | |
use Test2::AsyncSubtest; | |
use POSIX ":sys_wait_h"; |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
arne@aBook ~/S/r/legacy-cronjobs> moo-outdated | |
dyld: lazy symbol binding failed: Symbol not found: _Perl_xs_handshake | |
Referenced from: /Users/arne/perl5/lib/perl5/darwin-thread-multi-2level/auto/Sub/Name/Name.bundle | |
Expected in: flat namespace | |
dyld: Symbol not found: _Perl_xs_handshake | |
Referenced from: /Users/arne/perl5/lib/perl5/darwin-thread-multi-2level/auto/Sub/Name/Name.bundle | |
Expected in: flat namespace | |
| fish: 'moo-outdated' terminated by signal SIGABRT (Abort) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Role::Tiny | |
/Users/arne/perl5/lib/perl5/Role/Tiny.pm: 2.000005 | |
Moo | |
/Users/arne/perl5/lib/perl5/Moo.pm: 2.003002 | |
Moo::_mro | |
/Users/arne/perl5/lib/perl5/Moo/_mro.pm: ? |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
✔ 21:00 ~ $ cat sql_abs.pl | |
#!/usr/bin/perl | |
use feature 'say'; | |
use SQL::Abstract; | |
my $abs = SQL::Abstract->new(); | |
say join ',', $abs->select('my_table', [ 'my_table.my_id' ], { my_id => '1' }); | |
my $abs = SQL::Abstract->new( quote_char => '`' ); |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
diff --git a/lib/Test/Mojo.pm b/lib/Test/Mojo.pm | |
index b12e0bc..cf736ef 100644 | |
--- a/lib/Test/Mojo.pm | |
+++ b/lib/Test/Mojo.pm | |
@@ -17,7 +17,8 @@ use Mojo::Util qw(decode encode); | |
use Test::More (); | |
has [qw(message success tx)]; | |
-has ua => sub { Mojo::UserAgent->new->ioloop(Mojo::IOLoop->singleton) }; | |
+has ua => sub { Mojo::UserAgent->new->ioloop(Mojo::IOLoop->singleton) }; |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
$ perl -wle 'my $é = 5' | |
Can't use global $� in "my" at -e line 1, near "my $�" | |
Unrecognized character \xA9; marked by <-- HERE after my $�<-- HERE near column 6 at -e line 1. | |
$ perl -wle 'eval q/my $é = 5/ or die $@' | |
Unrecognized character \xA9; marked by <-- HERE after my $�<-- HERE near column 6 at (eval 1) line 1. | |
$ perl -wle 'eval qq/my \$\xC3 = 5/ or die $@' | |
Can't use global $� in "my" at (eval 1) line 1, near "my $� " |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
... | |
PerlModule SmartGiant | |
PerlOptions +SetupEnv | |
RewriteEngine on | |
ProxyPreserveHost On | |
RewriteCond %{HTTP_HOST} !^m.solfaktor | |
RewriteRule ^/(step1|step1_meta|asset/|services/|layouts/)(.*)$ http://%{HTTP_HOST}.prod.reisegiganten.net/$1$2 [P,L] |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
package RG::Charter::Tree; | |
# FIXME: Remove me when frontend does not use this in production anymore | |
use Moo; | |
use 5.010; | |
use Clone 'clone'; | |
use Data::Rmap; |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
$ git clone -b dev [email protected]:reisegiganten/libraries.git --depth=1 libraries-dev | |
Cloning into 'libraries-dev'... | |
warning: templates not found /home/nicolasm/.gittemplate | |
remote: Counting objects: 525, done. | |
remote: Compressing objects: 100% (485/485), done. | |
remote: Total 525 (delta 52), reused 196 (delta 17), pack-reused 0 | |
Receiving objects: 100% (525/525), 10.66 MiB | 1.97 MiB/s, done. | |
Resolving deltas: 100% (52/52), done. | |
Checking connectivity... done. | |
✔ 19:21 /projects/Reisegiganten $ cd libraries-dev/ |