akarelas-pt

#!/opt/perl-5.28.0/bin/perl

use v5.28;
use warnings;
use FindBin '$RealBin', '$RealScript';
use lib "$RealBin/local/lib/perl5", "$RealBin/lib";

use DateTime::Format::Strptime;
use Storable 'store', 'retrieve';
use Data::Dumper;

akarelas-pt

#!/usr/bin/perl

use v5.26;
use warnings;

use Syntax::Keyword::Try;
use Data::Dumper;

sub goo {
    try {

akarelas-pt

package My::Schema::Result;

use v5.26;
use warnings;

use parent 'DBIx::Class::Core';

use Sub::Util 'set_subname';

__PACKAGE__->load_components('Helper::Row::RelationshipDWIM');

akarelas-pt

package My::Schema::Result;

use v5.24;
use warnings;

use parent 'DBIx::Class::Core';

sub default_result_namespace { 'My::Schema::Result' }

use Sub::Util 'set_subname';

akarelas-pt

use Sub::Util 'set_subname';

foreach my $method (qw/ has_many belongs_to might_have has_one /) {
    no strict 'refs';
    *{ $method } = set_subname __PACKAGE__."::$method" => sub {
        my $class = shift;
        my $opts = $_[3] || {};
        foreach my $action (qw/ copy delete update /) {
            $opts->{"cascade_$action"} //= 0;
        }

akarelas-pt

# In your base Result class ( ...::Schema::BaseResult )

sub add_relationship {
  my $self = shift;
  my $opts = $_[3] || {};

  # shut off all DBIC/perl-side cascading logic
  $opts->{cascade_delete} = 0;
  $opts->{cascade_update} = 0;
  $opts->{cascade_copy} = 0;

akarelas-pt

-ci=2
-l=150
-bt=2
-pt=2
-sbt=2
-noll

akarelas-pt

#!/usr/bin/env perl
use Mojolicious::Lite;

app->max_request_size(10 * 1024);

get '/' => sub {
  my $c = shift;
  $c->render(template => 'index');
};

akarelas-pt

#!/usr/bin/env perl

use v5.16;
use warnings;
use lib 'local/lib/perl5';

use JSON::Validator;
use Data::Dumper;

my $v = JSON::Validator->new;

akarelas-pt

#!/usr/bin/env perl

use FindBin '$Bin';
use lib "$Bin/local/lib/perl5", "$Bin/lib";
use v5.16;
use warnings;

use My::Schema;

use Data::Dumper;