Bernhard Graf augensalat
augensalat
/ yaml.sh
Created
December 9, 2020 13:39
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 -MMojo::Util=dumper -MYAML -wE ' | |
| no warnings "once"; | |
| sub Vault::yaml_load { | |
| my ($class, $node) = @_; | |
| my ($h, $s) = sub { my @l = split /\n/, $$node; return (shift @l, join("", @l)) }->(); | |
| my %h; | |
| @h{qw(blurb version encryption id)} = split /;/, $h; | |
| bless {%h, secret => $s}, $class; | |
| } | |
| $YAML::TagClass->{vault} = "Vault"; |
augensalat
/ collectionformat.t
Last active
November 7, 2019 17:39
Swagger2: collectionFormat is optional for multi-value parameters
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
| use Mojo::Base -strict; | |
| use Test::Mojo; | |
| use Test::More; | |
| use Mojolicious::Lite; | |
| get '/pets' => sub { | |
| my $c = shift->openapi->valid_input or return; | |
| $c->render(openapi => $c->validation->output); | |
| }, |
augensalat
/ v3-query.t
Created
November 7, 2019 10:49
Mojolicious::Plugin::OpenAPI: OpenAPI3 array parameters test
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
| use Mojo::Base -strict; | |
| use Test::Mojo; | |
| use Test::More; | |
| use Mojolicious::Lite; | |
| get '/pets' => sub { | |
| my $c = shift->openapi->valid_input or return; | |
| $c->render(openapi => $c->validation->output); | |
| }, |
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
| use Mojo::Base -strict; | |
| use Mojo::JSON 'true'; | |
| use Test::Mojo; | |
| use Test::More; | |
| use Mojolicious::Lite; | |
| get( | |
| '/no-default-options/:id' => sub { $_[0]->render(openapi => {id => $_[0]->stash('id')}) }, | |
| 'Dummy' | |
| ); |
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
| { | |
| "swagger" : "2.0", | |
| "x-bundled" : { | |
| "__definitions_DefaultResponse" : { | |
| "type" : "object", | |
| "properties" : { | |
| "errors" : { | |
| "items" : { | |
| "type" : "object", | |
| "required" : [ |
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
| { | |
| "schemes" : [ | |
| "http" | |
| ], | |
| "paths" : { | |
| "/echo" : { | |
| "post" : { | |
| "x-mojo-name" : "echo", | |
| "responses" : { | |
| "200" : { |
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
| sub generiere_eins_bis_drei { | |
| $i = 0; | |
| return sub { | |
| return if $i > 2; | |
| return ++$i; | |
| } | |
| } | |
| $generator = generiere_eins_bis_drei; | |
| while ($wert = $generator->()) { |
augensalat
/ gist:4903218000b4a4d2f286
Created
July 6, 2015 11:11
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/Mojolicious/Plugin/MethodOverride.pm b/lib/Mojolicious/Plugin/MethodOverride.pm | |
| index 3a09501..e9a7f27 100644 | |
| --- a/lib/Mojolicious/Plugin/MethodOverride.pm | |
| +++ b/lib/Mojolicious/Plugin/MethodOverride.pm | |
| @@ -9,6 +9,9 @@ our $VERSION = '0.053'; | |
| sub register { | |
| my ($self, $app, $conf) = @_; | |
| + my $log = $app->log; | |
| + |
augensalat
/ streamres.pl
Last active
August 29, 2015 14:23
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/env perl | |
| BEGIN { | |
| $ENV{MOJO_REACTOR} = 'Mojo::Reactor::Poll'; | |
| } | |
| use strict; | |
| use warnings; | |
| use Mojo::IOLoop; |
augensalat
/ eventemitter-debug
Created
June 24, 2015 09:35
extended debugging for Mojo::EventEmitter
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
| --- a/lib/Mojo/EventEmitter.pm | |
| +++ b/lib/Mojo/EventEmitter.pm | |
| @@ -12,7 +12,11 @@ sub emit { | |
| if (my $s = $self->{events}{$name}) { | |
| warn "-- Emit $name in @{[blessed $self]} (@{[scalar @$s]})\n" if DEBUG; | |
| - for my $cb (@$s) { $self->$cb(@_) } | |
| + my $i = 0; | |
| + for my $cb (@$s) { | |
| + warn "xx call cb #@{[$i++]} $name in @{[blessed $self]}\n" if DEBUG; |
NewerOlder