Skip to content

Instantly share code, notes, and snippets.

@nicomen
Created August 20, 2015 08:19
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save nicomen/847f9bce9aa5a8806cf3 to your computer and use it in GitHub Desktop.
Save nicomen/847f9bce9aa5a8806cf3 to your computer and use it in GitHub Desktop.
mojo leak?
$ mojo generate app; cd my_app; perl -Ilib -wle 'use Test::More; use Test::Mojo; use Test::LeakTrace; no_leaks_ok { my $t = Test::Mojo->new("MyApp"); $t->get_ok("/")->status_is(200); }; done_testing;'
[mkdir] /projects/test-mojo/my_app/my_app/my_app/script
[write] /projects/test-mojo/my_app/my_app/my_app/script/my_app
[chmod] /projects/test-mojo/my_app/my_app/my_app/script/my_app 744
[mkdir] /projects/test-mojo/my_app/my_app/my_app/lib
[write] /projects/test-mojo/my_app/my_app/my_app/lib/MyApp.pm
[mkdir] /projects/test-mojo/my_app/my_app/my_app/lib/MyApp/Controller
[write] /projects/test-mojo/my_app/my_app/my_app/lib/MyApp/Controller/Example.pm
[mkdir] /projects/test-mojo/my_app/my_app/my_app/t
[write] /projects/test-mojo/my_app/my_app/my_app/t/basic.t
[mkdir] /projects/test-mojo/my_app/my_app/my_app/public
[write] /projects/test-mojo/my_app/my_app/my_app/public/index.html
[mkdir] /projects/test-mojo/my_app/my_app/my_app/templates/layouts
[write] /projects/test-mojo/my_app/my_app/my_app/templates/layouts/default.html.ep
[mkdir] /projects/test-mojo/my_app/my_app/my_app/templates/example
[write] /projects/test-mojo/my_app/my_app/my_app/templates/example/welcome.html.ep
ok 1 - GET /
ok 2 - 200 OK
ok 3 - GET /
ok 4 - 200 OK
not ok 5 - leaks 18 <= 0
# Failed test 'leaks 18 <= 0'
# at -e line 1.
# '18'
# <=
# '0'
ok 6 - GET /
ok 7 - 200 OK
ok 8 - GET /
ok 9 - 200 OK
# leaked SCALAR(0x2d62ff8) from /usr/share/perl5/Mojo/Message.pm line 30.
# 29: if $content->is_multipart;
# 30: $content->asset(Mojo::Asset::Memory->new->add_chunk(@_));
# 31:
# SV = IV(0x2d62fe8) at 0x2d62ff8
# REFCNT = 1
# FLAGS = (IOK,pIOK)
# IV = 37254632
# leaked REF(0x2ee5498) from /home/nicolasm/perl5/lib/perl5/Test/Builder.pm line 873.
# 872:
# 873: $self->{Test_Results}[ $self->{Curr_Test} - 1 ] = $result;
# 874: $out .= "\n";
# SV = IV(0x2ee5488) at 0x2ee5498
# REFCNT = 1
# FLAGS = (ROK)
# RV = 0x312a880
# SV = PVHV(0x1474b50) at 0x312a880
# REFCNT = 1
# FLAGS = (SHAREKEYS)
# ARRAY = 0x33537e0 (0:5, 1:2, 3:1)
# hash quality = 68.2%
# KEYS = 5
# FILL = 3
# MAX = 7
# Elt "ok" HASH = 0x705694d1
# SV = IV(0x339f078) at 0x339f088
# REFCNT = 1
# FLAGS = (IOK,pIOK)
# IV = 1
# Elt "reason" HASH = 0xa57f203b
# SV = PV(0x30e4750) at 0x3112588
# REFCNT = 1
# FLAGS = (POK,IsCOW,pPOK)
# PV = 0x15538f0 ""\0
# CUR = 0
# LEN = 10
# COW_REFCNT = 9
# Elt "type" HASH = 0x354a45b3
# SV = PV(0x2ecbc10) at 0x3105ce8
# REFCNT = 1
# FLAGS = (POK,IsCOW,pPOK)
# PV = 0x1553970 ""\0
# CUR = 0
# LEN = 10
# COW_REFCNT = 9
# leaked REGEXP(0x2ef2860) from /usr/share/perl/5.20/File/Find.pm line 772.
# 771: for my $FN (@filenames) {
# 772: next if $FN =~ $File::Find::skip_pattern;
# 773: if ($subcount > 0 || $no_nlink) {
# SV = REGEXP(0x30b4b20) at 0x2ef2860
# REFCNT = 1
# FLAGS = (FAKE)
# PV = 0x28e3700 "(?^:^\\.{1,2}\\z)"
# CUR = 15
# COMPFLAGS = 0x0 ()
# EXTFLAGS = 0x600200 (IS_ANCHORED,USE_INTUIT_NOML,USE_INTUIT_ML)
# ENGINE = 0x568740 (STANDARD)
# INTFLAGS = 0x400 (ANCH_BOL)
# NPARENS = 0
# LASTPAREN = 0
# LASTCLOSEPAREN = 0
# MINLEN = 1
# MINLENRET = 1
# GOFS = 0
# PRE_PREFIX = 4
# SUBLEN = 2
# SUBOFFSET = 0
# SUBCOFFSET = 0
# SUBBEG = 0x2f21120 ".."\0
# MOTHER_RE = 0x2878e40
# SV = REGEXP(0x28d29a0) at 0x2878e40
# REFCNT = 3
# FLAGS = ()
# PV = 0x28e3700 "(?^:^\\.{1,2}\\z)"
# CUR = 15
# COMPFLAGS = 0x0 ()
# EXTFLAGS = 0x600200 (IS_ANCHORED,USE_INTUIT_NOML,USE_INTUIT_ML)
# ENGINE = 0x568740 (STANDARD)
# INTFLAGS = 0x400 (ANCH_BOL)
# NPARENS = 0
# LASTPAREN = 0
# LASTCLOSEPAREN = 0
# MINLEN = 1
# MINLENRET = 1
# GOFS = 0
# PRE_PREFIX = 4
# SUBLEN = 0
# SUBOFFSET = 0
# SUBCOFFSET = 0
# SUBBEG = 0x0
# MOTHER_RE = 0x0
# PAREN_NAMES = 0x0
# SUBSTRS = 0x28e4960
# PPRIVATE = 0x28922a0
# OFFS = 0x28e49f0
# QR_ANONCV = 0x0
# SAVED_COPY = 0x0
# PAREN_NAMES = 0x0
# SUBSTRS = 0x337abe0
# PPRIVATE = 0x28922a0
# OFFS = 0x3103c70
# QR_ANONCV = 0x0
# SAVED_COPY = 0x3106450
# leaked SCALAR(0x2f83828) from /usr/share/perl/5.20/strict.pm line 37.
# 36: }
# 37: $bits;
# 38:}
# SV = IV(0x2f83818) at 0x2f83828
# REFCNT = 1
# FLAGS = (IOK,pIOK)
# IV = 21669792
# leaked SCALAR(0x30c0428) from /usr/share/perl5/Mojo/Template.pm line 176.
# 175: # End
# 176: if ($op ne 'text' && $token =~ $end_re) {
# 177: $op = 'text';
# SV = PV(0x30d9e70) at 0x30c0428
# REFCNT = 1
# FLAGS = (POK,IsCOW,pPOK,UTF8)
# PV = 0x33958e0 "%>"\0 [UTF8 "%>"]
# CUR = 2
# LEN = 10
# COW_REFCNT = 0
# leaked SCALAR(0x30ddbf0) from /usr/share/perl5/Mojo/Template.pm line 176.
# 175: # End
# 176: if ($op ne 'text' && $token =~ $end_re) {
# 177: $op = 'text';
# SV = PVMG(0x30fac00) at 0x30ddbf0
# REFCNT = 1
# FLAGS = (SMG,POK,pPOK,TAIL,VALID,EVALED,IsUV,UTF8)
# PV = 0x31260b0 "%>\n"\0 [UTF8 "%>\n"]
# CUR = 3
# LEN = 10
# MAGIC = 0x3117b40
# MG_VIRTUAL = &PL_vtbl_regexp
# MG_TYPE = PERL_MAGIC_bm(B)
# MG_LEN = 256
# MG_PTR = 0x3124c20 "\3\3\3\3\3\3\3\3\3\3\0\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\2\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\1\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3"
# USEFUL = 100
# leaked REGEXP(0x30ddba8) from /usr/share/perl5/Mojo/Template.pm line 154.
# 153: # Turn Perl line into mixed line
# 154: if ($op eq 'text' && $line =~ $line_re) {
# 155:
# SV = REGEXP(0x3114d00) at 0x30ddba8
# REFCNT = 1
# FLAGS = (FAKE)
# PV = 0x3114230 "(?^:^(\\s*)\\%(?:(\\%)|(\\#)|(\\=))?(.*)$)"
# CUR = 37
# COMPFLAGS = 0x0 ()
# EXTFLAGS = 0x740200 (IS_ANCHORED,MATCH_UTF8,USE_INTUIT_NOML,USE_INTUIT_ML)
# ENGINE = 0x568740 (STANDARD)
# INTFLAGS = 0x404 (NAUGHTY,ANCH_BOL)
# NPARENS = 5
# LASTPAREN = 0
# LASTCLOSEPAREN = 0
# MINLEN = 1
# MINLENRET = 1
# GOFS = 0
# PRE_PREFIX = 4
# SUBLEN = 0
# SUBOFFSET = 0
# SUBCOFFSET = 0
# SUBBEG = 0x0
# MOTHER_RE = 0x3105820
# SV = REGEXP(0x30b4a60) at 0x3105820
# REFCNT = 2
# FLAGS = ()
# PV = 0x3114230 "(?^:^(\\s*)\\%(?:(\\%)|(\\#)|(\\=))?(.*)$)"
# CUR = 37
# COMPFLAGS = 0x0 ()
# EXTFLAGS = 0x640200 (IS_ANCHORED,USE_INTUIT_NOML,USE_INTUIT_ML)
# ENGINE = 0x568740 (STANDARD)
# INTFLAGS = 0x404 (NAUGHTY,ANCH_BOL)
# NPARENS = 5
# LASTPAREN = 0
# LASTCLOSEPAREN = 0
# MINLEN = 1
# MINLENRET = 1
# GOFS = 0
# PRE_PREFIX = 4
# SUBLEN = 0
# SUBOFFSET = 0
# SUBCOFFSET = 0
# SUBBEG = 0x0
# MOTHER_RE = 0x0
# PAREN_NAMES = 0x0
# SUBSTRS = 0x3114270
# PPRIVATE = 0x3114140
# OFFS = 0x31145e0
# QR_ANONCV = 0x0
# SAVED_COPY = 0x0
# PAREN_NAMES = 0x0
# SUBSTRS = 0x3395cb0
# PPRIVATE = 0x3114140
# OFFS = 0x3397af0
# QR_ANONCV = 0x0
# SAVED_COPY = 0x0
# leaked SCALAR(0x30dd728) from /usr/share/perl5/Mojolicious.pm line 40.
# 39:};
# 40:has sessions => sub { Mojolicious::Sessions->new };
# 41:has static => sub { Mojolicious::Static->new };
# SV = IV(0x30dd718) at 0x30dd728
# REFCNT = 1
# FLAGS = (IOK,pIOK)
# IV = 48435504
# leaked REGEXP(0x30dd3e0) from /usr/share/perl5/Mojo/Template.pm line 176.
# 175: # End
# 176: if ($op ne 'text' && $token =~ $end_re) {
# 177: $op = 'text';
# SV = REGEXP(0x3114f40) at 0x30dd3e0
# REFCNT = 1
# FLAGS = (FAKE)
# PV = 0x3115b60 "(?^:^(?:(begin)\\s*)?(\\=)?\\%\\>$)"
# CUR = 31
# COMPFLAGS = 0x0 ()
# EXTFLAGS = 0xf40200 (IS_ANCHORED,MATCH_UTF8,USE_INTUIT_NOML,USE_INTUIT_ML,INTUIT_TAIL)
# ENGINE = 0x568740 (STANDARD)
# INTFLAGS = 0x404 (NAUGHTY,ANCH_BOL)
# NPARENS = 2
# LASTPAREN = 0
# LASTCLOSEPAREN = 0
# MINLEN = 2
# MINLENRET = 2
# GOFS = 0
# PRE_PREFIX = 4
# SUBLEN = 2
# SUBOFFSET = 0
# SUBCOFFSET = 0
# SUBBEG = 0x33958e0 "%>"\0
# MOTHER_RE = 0x3105970
# SV = REGEXP(0x3114ac0) at 0x3105970
# REFCNT = 2
# FLAGS = ()
# PV = 0x3115b60 "(?^:^(?:(begin)\\s*)?(\\=)?\\%\\>$)"
# CUR = 31
# COMPFLAGS = 0x0 ()
# EXTFLAGS = 0xe40200 (IS_ANCHORED,USE_INTUIT_NOML,USE_INTUIT_ML,INTUIT_TAIL)
# ENGINE = 0x568740 (STANDARD)
# INTFLAGS = 0x404 (NAUGHTY,ANCH_BOL)
# NPARENS = 2
# LASTPAREN = 0
# LASTCLOSEPAREN = 0
# MINLEN = 2
# MINLENRET = 2
# GOFS = 0
# PRE_PREFIX = 4
# SUBLEN = 0
# SUBOFFSET = 0
# SUBCOFFSET = 0
# SUBBEG = 0x0
# MOTHER_RE = 0x0
# PAREN_NAMES = 0x0
# SUBSTRS = 0x3116c50
# PPRIVATE = 0x3116ba0
# OFFS = 0x3116f60
# QR_ANONCV = 0x0
# SAVED_COPY = 0x0
# PAREN_NAMES = 0x0
# SUBSTRS = 0x3395d70
# PPRIVATE = 0x3116ba0
# OFFS = 0x3398370
# QR_ANONCV = 0x0
# SAVED_COPY = 0x30c0428
# leaked REGEXP(0x30e4038) from /usr/share/perl5/Mojo/Template.pm line 170.
# 169: # Mixed line
# 170: for my $token (split $token_re, $line) {
# 171:
# SV = REGEXP(0x3115000) at 0x30e4038
# REFCNT = 1
# FLAGS = (FAKE)
# PV = 0x3115960 "(?^x:\n (\n \\<\\%(?:\\%|\\#) # Replace\n |\n \\<\\%\\=(?:\\=)?(?:\\s*end(?!\\w))? # Expression\n |\n \\<\\%(?:\\s*end(?!\\w))? # Code\n |\n (?:(?<!\\w)begin\\s*)?(?:\\=)?\\%\\> # End\n )\n )"
# CUR = 245
# COMPFLAGS = 0x8 (PMf_EXTENDED)
# EXTFLAGS = 0x148008 (PMf_EXTENDED,NO_INPLACE_SUBST,MATCH_UTF8)
# ENGINE = 0x568740 (STANDARD)
# INTFLAGS = 0x4 (NAUGHTY)
# NPARENS = 1
# LASTPAREN = 0
# LASTCLOSEPAREN = 0
# MINLEN = 2
# MINLENRET = 2
# GOFS = 0
# PRE_PREFIX = 5
# SUBLEN = 0
# SUBOFFSET = 0
# SUBCOFFSET = 0
# SUBBEG = 0x0
# MOTHER_RE = 0x3105898
# SV = REGEXP(0x31147c0) at 0x3105898
# REFCNT = 2
# FLAGS = ()
# PV = 0x3115960 "(?^x:\n (\n \\<\\%(?:\\%|\\#) # Replace\n |\n \\<\\%\\=(?:\\=)?(?:\\s*end(?!\\w))? # Expression\n |\n \\<\\%(?:\\s*end(?!\\w))? # Code\n |\n (?:(?<!\\w)begin\\s*)?(?:\\=)?\\%\\> # End\n )\n )"
# CUR = 245
# COMPFLAGS = 0x8 (PMf_EXTENDED)
# EXTFLAGS = 0x48008 (PMf_EXTENDED,NO_INPLACE_SUBST)
# ENGINE = 0x568740 (STANDARD)
# INTFLAGS = 0x4 (NAUGHTY)
# NPARENS = 1
# LASTPAREN = 0
# LASTCLOSEPAREN = 0
# MINLEN = 2
# MINLENRET = 2
# GOFS = 0
# PRE_PREFIX = 5
# SUBLEN = 0
# SUBOFFSET = 0
# SUBCOFFSET = 0
# SUBBEG = 0x0
# MOTHER_RE = 0x0
# PAREN_NAMES = 0x0
# SUBSTRS = 0x3115a70
# PPRIVATE = 0x3115800
# OFFS = 0x31161b0
# QR_ANONCV = 0x0
# SAVED_COPY = 0x0
# PAREN_NAMES = 0x0
# SUBSTRS = 0x3398200
# PPRIVATE = 0x3115800
# OFFS = 0x3395aa0
# QR_ANONCV = 0x0
# SAVED_COPY = 0x0
# leaked SCALAR(0x30e3660) from /usr/share/perl/5.20/File/Find.pm line 754.
# 753: }
# 754: next if $FN =~ $File::Find::skip_pattern;
# 755:
# SV = PV(0x2d98a50) at 0x30e3660
# REFCNT = 1
# FLAGS = (POK,IsCOW,pPOK)
# PV = 0x335b670 ".."\0
# CUR = 2
# LEN = 10
# COW_REFCNT = 0
# leaked REGEXP(0x30ed0d0) from /usr/share/perl/5.20/File/Find.pm line 754.
# 753: }
# 754: next if $FN =~ $File::Find::skip_pattern;
# 755:
# SV = REGEXP(0x2d1b740) at 0x30ed0d0
# REFCNT = 1
# FLAGS = (FAKE)
# PV = 0x28e3700 "(?^:^\\.{1,2}\\z)"
# CUR = 15
# COMPFLAGS = 0x0 ()
# EXTFLAGS = 0x600200 (IS_ANCHORED,USE_INTUIT_NOML,USE_INTUIT_ML)
# ENGINE = 0x568740 (STANDARD)
# INTFLAGS = 0x400 (ANCH_BOL)
# NPARENS = 0
# LASTPAREN = 0
# LASTCLOSEPAREN = 0
# MINLEN = 1
# MINLENRET = 1
# GOFS = 0
# PRE_PREFIX = 4
# SUBLEN = 2
# SUBOFFSET = 0
# SUBCOFFSET = 0
# SUBBEG = 0x335b670 ".."\0
# MOTHER_RE = 0x2878e40
# SV = REGEXP(0x28d29a0) at 0x2878e40
# REFCNT = 3
# FLAGS = ()
# PV = 0x28e3700 "(?^:^\\.{1,2}\\z)"
# CUR = 15
# COMPFLAGS = 0x0 ()
# EXTFLAGS = 0x600200 (IS_ANCHORED,USE_INTUIT_NOML,USE_INTUIT_ML)
# ENGINE = 0x568740 (STANDARD)
# INTFLAGS = 0x400 (ANCH_BOL)
# NPARENS = 0
# LASTPAREN = 0
# LASTCLOSEPAREN = 0
# MINLEN = 1
# MINLENRET = 1
# GOFS = 0
# PRE_PREFIX = 4
# SUBLEN = 0
# SUBOFFSET = 0
# SUBCOFFSET = 0
# SUBBEG = 0x0
# MOTHER_RE = 0x0
# PAREN_NAMES = 0x0
# SUBSTRS = 0x28e4960
# PPRIVATE = 0x28922a0
# OFFS = 0x28e49f0
# QR_ANONCV = 0x0
# SAVED_COPY = 0x0
# PAREN_NAMES = 0x0
# SUBSTRS = 0x337b190
# PPRIVATE = 0x28922a0
# OFFS = 0x16a0d60
# QR_ANONCV = 0x0
# SAVED_COPY = 0x30e3660
# leaked SCALAR(0x30f1968) from /usr/share/perl5/Mojo/Template.pm line 154.
# 153: # Turn Perl line into mixed line
# 154: if ($op eq 'text' && $line =~ $line_re) {
# 155:
# SV = PVMG(0x30fab10) at 0x30f1968
# REFCNT = 1
# FLAGS = (SMG,POK,pPOK,VALID,EVALED,UTF8)
# PV = 0x33976d0 "%"\0 [UTF8 "%"]
# CUR = 1
# LEN = 10
# MAGIC = 0x3398460
# MG_VIRTUAL = &PL_vtbl_regexp
# MG_TYPE = PERL_MAGIC_bm(B)
# USEFUL = 105
# leaked SCALAR(0x30f1608) from /home/nicolasm/perl5/lib/perl5/Test/Builder.pm line 869.
# 868: else {
# 869: $result->{reason} = '';
# 870: $result->{type} = '';
# SV = PV(0x3118990) at 0x30f1608
# REFCNT = 1
# FLAGS = (POK,IsCOW,pPOK)
# PV = 0x15538f0 ""\0
# CUR = 0
# LEN = 10
# COW_REFCNT = 9
# leaked SCALAR(0x30f0fc0) from /home/nicolasm/perl5/lib/perl5/Test/Builder/Module.pm line 170.
# 169:sub builder {
# 170: return Test::Builder->new;
# 171:}
# SV = IV(0x30f0fb0) at 0x30f0fc0
# REFCNT = 1
# FLAGS = (IOK,pIOK)
# IV = 21762664
# leaked SCALAR(0x30f0c30) from /usr/share/perl5/Mojolicious.pm line 42.
# 41:has static => sub { Mojolicious::Static->new };
# 42:has types => sub { Mojolicious::Types->new };
# 43:has validator => sub { Mojolicious::Validator->new };
# SV = IV(0x30f0c20) at 0x30f0c30
# REFCNT = 1
# FLAGS = (IOK,pIOK)
# IV = 48660104
# leaked SCALAR(0x30f90d8) from /usr/share/perl5/Mojo/IOLoop.pm line 172.
# 171: $_->start for values %{$self->{acceptors} || {}};
# 172: $self->{accepting} = 1;
# 173:}
# SV = IV(0x30f90c8) at 0x30f90d8
# REFCNT = 1
# FLAGS = (IOK,pIOK)
# IV = 1
# leaked SCALAR(0x30f8dc0) from /home/nicolasm/perl5/lib/perl5/Test/Builder.pm line 857.
# 856: $out .= " - $name";
# 857: $result->{name} = $name;
# 858: }
# SV = PV(0x2e6ccd0) at 0x30f8dc0
# REFCNT = 1
# FLAGS = (POK,pPOK)
# PV = 0x30fced0 "GET /"\0
# CUR = 5
# LEN = 10
# leaked SCALAR(0x30fe0c8) from /usr/share/perl5/Mojo/Template.pm line 173.
# 172: # Capture end
# 173: ($token, $capture) = ("$tag$1", 1) if $token =~ $cpen_re;
# 174:
# SV = PVMG(0x30fa630) at 0x30fe0c8
# REFCNT = 1
# FLAGS = (SMG,POK,pPOK,VALID,EVALED,UTF8)
# PV = 0x33976f0 "end"\0 [UTF8 "end"]
# CUR = 3
# LEN = 10
# MAGIC = 0x3398330
# MG_VIRTUAL = &PL_vtbl_regexp
# MG_TYPE = PERL_MAGIC_bm(B)
# MG_LEN = 256
# MG_PTR = 0x33980f0 "\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\0\2\3\3\3\3\3\3\3\3\1\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3\3"
# USEFUL = 105
# leaked REGEXP(0x31032b0) from /usr/share/perl5/Mojo/Content.pm line 24.
# 23:sub boundary {
# 24: (shift->headers->content_type // '') =~ $BOUNDARY_RE ? $1 // $2 : undef;
# 25:}
# SV = REGEXP(0x30b49a0) at 0x31032b0
# REFCNT = 1
# FLAGS = (FAKE)
# PV = 0x2326e50 "(?^i:multipart.*boundary\\s*=\\s*(?:\"([^\"]+)\"|([\\w'(),.:?\\-+/]+)))"
# CUR = 64
# COMPFLAGS = 0x4 (PMf_FOLD)
# EXTFLAGS = 0x640004 (PMf_FOLD,USE_INTUIT_NOML,USE_INTUIT_ML)
# ENGINE = 0x568740 (STANDARD)
# INTFLAGS = 0x4 (NAUGHTY)
# NPARENS = 2
# LASTPAREN = 0
# LASTCLOSEPAREN = 0
# MINLEN = 19
# MINLENRET = 19
# GOFS = 0
# PRE_PREFIX = 5
# SUBLEN = 0
# SUBOFFSET = 0
# SUBCOFFSET = 0
# SUBBEG = 0x0
# MOTHER_RE = 0x23a2358
# SV = REGEXP(0x241c170) at 0x23a2358
# REFCNT = 2
# FLAGS = ()
# PV = 0x2326e50 "(?^i:multipart.*boundary\\s*=\\s*(?:\"([^\"]+)\"|([\\w'(),.:?\\-+/]+)))"
# CUR = 64
# COMPFLAGS = 0x4 (PMf_FOLD)
# EXTFLAGS = 0x640004 (PMf_FOLD,USE_INTUIT_NOML,USE_INTUIT_ML)
# ENGINE = 0x568740 (STANDARD)
# INTFLAGS = 0x4 (NAUGHTY)
# NPARENS = 2
# LASTPAREN = 0
# LASTCLOSEPAREN = 0
# MINLEN = 19
# MINLENRET = 19
# GOFS = 0
# PRE_PREFIX = 5
# SUBLEN = 0
# SUBOFFSET = 0
# SUBCOFFSET = 0
# SUBBEG = 0x0
# MOTHER_RE = 0x0
# PAREN_NAMES = 0x0
# SUBSTRS = 0x23b1080
# PPRIVATE = 0x23ddf70
# OFFS = 0x23dded0
# QR_ANONCV = 0x0
# SAVED_COPY = 0x0
# PAREN_NAMES = 0x0
# SUBSTRS = 0x3139ed0
# PPRIVATE = 0x23ddf70
# OFFS = 0x33681c0
# QR_ANONCV = 0x0
# SAVED_COPY = 0x0
# leaked REGEXP(0x3103100) from /usr/share/perl5/Mojolicious/Routes/Pattern.pm line 138.
# 137:
# 138: $self->regex(qr/^$regex/ps);
# 139:}
# SV = REGEXP(0x30b48e0) at 0x3103100
# REFCNT = 2
# FLAGS = ()
# PV = 0x3107240 "(?^ps:^)"
# CUR = 8
# COMPFLAGS = 0x12 (PMf_SINGLELINE,PMf_KEEPCOPY)
# EXTFLAGS = 0x10000212 (PMf_SINGLELINE,PMf_KEEPCOPY,IS_ANCHORED,START_ONLY)
# ENGINE = 0x568740 (STANDARD)
# INTFLAGS = 0x1000 (ANCH_SBOL)
# NPARENS = 0
# LASTPAREN = 0
# LASTCLOSEPAREN = 0
# MINLEN = 0
# MINLENRET = 0
# GOFS = 0
# PRE_PREFIX = 6
# SUBLEN = 0
# SUBOFFSET = 0
# SUBCOFFSET = 0
# SUBBEG = 0x0
# MOTHER_RE = 0x0
# PAREN_NAMES = 0x0
# SUBSTRS = 0x336bdb0
# PPRIVATE = 0x336bd70
# OFFS = 0x24c5c20
# QR_ANONCV = 0x0
# SAVED_COPY = 0x0
# leaked REGEXP(0x3102728) from /usr/share/perl5/Mojo/Template.pm line 173.
# 172: # Capture end
# 173: ($token, $capture) = ("$tag$1", 1) if $token =~ $cpen_re;
# 174:
# SV = REGEXP(0x3114e80) at 0x3102728
# REFCNT = 1
# FLAGS = (FAKE)
# PV = 0x3113a20 "(?^:^\\<\\%(?:\\=)?(?:\\=)?\\s*end(.*)$)"
# CUR = 35
# COMPFLAGS = 0x0 ()
# EXTFLAGS = 0x740200 (IS_ANCHORED,MATCH_UTF8,USE_INTUIT_NOML,USE_INTUIT_ML)
# ENGINE = 0x568740 (STANDARD)
# INTFLAGS = 0x404 (NAUGHTY,ANCH_BOL)
# NPARENS = 1
# LASTPAREN = 0
# LASTCLOSEPAREN = 0
# MINLEN = 5
# MINLENRET = 5
# GOFS = 0
# PRE_PREFIX = 4
# SUBLEN = 0
# SUBOFFSET = 0
# SUBCOFFSET = 0
# SUBBEG = 0x0
# MOTHER_RE = 0x3105940
# SV = REGEXP(0x3114940) at 0x3105940
# REFCNT = 2
# FLAGS = ()
# PV = 0x3113a20 "(?^:^\\<\\%(?:\\=)?(?:\\=)?\\s*end(.*)$)"
# CUR = 35
# COMPFLAGS = 0x0 ()
# EXTFLAGS = 0x640200 (IS_ANCHORED,USE_INTUIT_NOML,USE_INTUIT_ML)
# ENGINE = 0x568740 (STANDARD)
# INTFLAGS = 0x404 (NAUGHTY,ANCH_BOL)
# NPARENS = 1
# LASTPAREN = 0
# LASTCLOSEPAREN = 0
# MINLEN = 5
# MINLENRET = 5
# GOFS = 0
# PRE_PREFIX = 4
# SUBLEN = 0
# SUBOFFSET = 0
# SUBCOFFSET = 0
# SUBBEG = 0x0
# MOTHER_RE = 0x0
# PAREN_NAMES = 0x0
# SUBSTRS = 0x3116840
# PPRIVATE = 0x31167a0
# OFFS = 0x3116a20
# QR_ANONCV = 0x0
# SAVED_COPY = 0x0
# PAREN_NAMES = 0x0
# SUBSTRS = 0x3395800
# PPRIVATE = 0x31167a0
# OFFS = 0x311be30
# QR_ANONCV = 0x0
# SAVED_COPY = 0x0
# leaked SCALAR(0x3106450) from /usr/share/perl/5.20/File/Find.pm line 772.
# 771: for my $FN (@filenames) {
# 772: next if $FN =~ $File::Find::skip_pattern;
# 773: if ($subcount > 0 || $no_nlink) {
# SV = PV(0x30d9bf0) at 0x3106450
# REFCNT = 1
# FLAGS = (POK,IsCOW,pPOK)
# PV = 0x2f21120 ".."\0
# CUR = 2
# LEN = 10
# COW_REFCNT = 0
# leaked SCALAR(0x3106300) from /usr/share/perl5/Mojolicious/Plugin/DefaultHelpers.pm line 66.
# 65:
# 66: return Mojo::ByteStream->new($hash->{$name} // '');
# 67:}
# SV = IV(0x31062f0) at 0x3106300
# REFCNT = 1
# FLAGS = (IOK,pIOK)
# IV = 38547544
# leaked SCALAR(0x31060a8) from /usr/share/perl5/Mojolicious/Routes/Pattern.pm line 27.
# 26: # Path
# 27: return undef unless my @captures = $$pathref =~ $self->regex;
# 28: $$pathref = ${^POSTMATCH};
# SV = PV(0x30e42e0) at 0x31060a8
# REFCNT = 1
# FLAGS = (POK,IsCOW,pPOK)
# PV = 0x3108040 "/"\0
# CUR = 1
# LEN = 10
# COW_REFCNT = 0
# leaked SCALAR(0x3105eb0) from /home/nicolasm/perl5/lib/perl5/Test/Builder.pm line 848.
# 847: else {
# 848: @$result{ 'ok', 'actual_ok' } = ( 1, $test );
# 849: }
# SV = IV(0x3105ea0) at 0x3105eb0
# REFCNT = 1
# FLAGS = (IOK,pIOK)
# IV = 1
# leaked SCALAR(0x3105ce8) from /home/nicolasm/perl5/lib/perl5/Test/Builder.pm line 870.
# 869: $result->{reason} = '';
# 870: $result->{type} = '';
# 871: }
# SV = PV(0x2ecbc10) at 0x3105ce8
# REFCNT = 1
# FLAGS = (POK,IsCOW,pPOK)
# PV = 0x1553970 ""\0
# CUR = 0
# LEN = 10
# COW_REFCNT = 9
# leaked REF(0x310a3b8) from /home/nicolasm/perl5/lib/perl5/Test/Builder.pm line 873.
# 872:
# 873: $self->{Test_Results}[ $self->{Curr_Test} - 1 ] = $result;
# 874: $out .= "\n";
# SV = IV(0x310a3a8) at 0x310a3b8
# REFCNT = 1
# FLAGS = (ROK)
# RV = 0x3129e48
# SV = PVHV(0x2e2d380) at 0x3129e48
# REFCNT = 1
# FLAGS = (SHAREKEYS)
# ARRAY = 0x33aedf0 (0:5, 1:2, 3:1)
# hash quality = 68.2%
# KEYS = 5
# FILL = 3
# MAX = 7
# Elt "ok" HASH = 0x705694d1
# SV = IV(0x3105ea0) at 0x3105eb0
# REFCNT = 1
# FLAGS = (IOK,pIOK)
# IV = 1
# Elt "type" HASH = 0x354a45b3
# SV = PV(0x3118b40) at 0x2ee5360
# REFCNT = 1
# FLAGS = (POK,IsCOW,pPOK)
# PV = 0x1553970 ""\0
# CUR = 0
# LEN = 10
# COW_REFCNT = 9
# Elt "reason" HASH = 0xa57f203b
# SV = PV(0x3118990) at 0x30f1608
# REFCNT = 1
# FLAGS = (POK,IsCOW,pPOK)
# PV = 0x15538f0 ""\0
# CUR = 0
# LEN = 10
# COW_REFCNT = 9
# leaked SCALAR(0x310a328) from /home/nicolasm/perl5/lib/perl5/Test/Builder.pm line 848.
# 847: else {
# 848: @$result{ 'ok', 'actual_ok' } = ( 1, $test );
# 849: }
# SV = PVNV(0x30c2500) at 0x310a328
# REFCNT = 1
# FLAGS = (IOK,pIOK)
# IV = 1
# NV = 0
# PV = 0
# leaked REGEXP(0x310a010) from /usr/share/perl5/Mojo/Util.pm line 311.
# 310: my ($str, $pattern) = @_;
# 311: if ($pattern) { $str =~ s/([$pattern])/sprintf '%%%02X', ord $1/ge }
# 312: else { $str =~ s/([^A-Za-z0-9\-._~])/sprintf '%%%02X', ord $1/ge }
# SV = REGEXP(0x30b4820) at 0x310a010
# REFCNT = 1
# FLAGS = ()
# PV = 0x3397480 "(?^:([^A-Za-z0-9\\-._~!$&'()*+,;=:@]))"
# CUR = 37
# COMPFLAGS = 0x0 ()
# EXTFLAGS = 0x0 ()
# ENGINE = 0x568740 (STANDARD)
# INTFLAGS = 0x0 ()
# NPARENS = 1
# LASTPAREN = 0
# LASTCLOSEPAREN = 0
# MINLEN = 1
# MINLENRET = 1
# GOFS = 0
# PRE_PREFIX = 4
# SUBLEN = 0
# SUBOFFSET = 0
# SUBCOFFSET = 0
# SUBBEG = 0x0
# MOTHER_RE = 0x0
# PAREN_NAMES = 0x0
# SUBSTRS = 0x3397710
# PPRIVATE = 0x3397400
# OFFS = 0x33974c0
# QR_ANONCV = 0x0
# SAVED_COPY = 0x0
# leaked SCALAR(0x310f180) from /home/nicolasm/perl5/lib/perl5/Test/Builder.pm line 1817.
# 1816:
# 1817: local( $\, $", $, ) = ( undef, ' ', '' );
# 1818:
# SV = PVMG(0x30fad50) at 0x310f180
# REFCNT = 1
# FLAGS = (POK,pPOK)
# IV = 0
# NV = 0
# PV = 0x3368e80 "\n"\0
# CUR = 1
# LEN = 10
# leaked SCALAR(0x310f0f0) from /usr/share/perl5/Mojo/Content.pm line 10.
# 9:has [qw(auto_decompress auto_relax expect_close relaxed skip_body)];
# 10:has headers => sub { Mojo::Headers->new };
# 11:has max_buffer_size => sub { $ENV{MOJO_MAX_BUFFER_SIZE} || 262144 };
# SV = IV(0x310f0e0) at 0x310f0f0
# REFCNT = 1
# FLAGS = (IOK,pIOK)
# IV = 37534056
# leaked SCALAR(0x310e880) from /usr/share/perl5/Mojo/IOLoop/Server.pm line 29.
# 28: my $self = shift;
# 29: $ENV{MOJO_REUSE} =~ s/(?:^|\,)\Q$self->{reuse}\E// if $self->{reuse};
# 30: return unless my $reactor = $self->reactor;
# SV = PVMG(0x307eb30) at 0x310e880
# REFCNT = 1
# FLAGS = (SMG,POK,IsCOW,pPOK,VALID,EVALED)
# PV = 0x311d810 "127.0.0.1:52236:3"\0
# CUR = 17
# LEN = 24
# COW_REFCNT = 0
# MAGIC = 0x335de30
# MG_VIRTUAL = &PL_vtbl_regexp
# MG_TYPE = PERL_MAGIC_bm(B)
# MG_LEN = 256
# MG_PTR = 0x30e2930 "\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\t\21\n\10\4\0\21\6\2\16\21\21\1\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21\21"
# USEFUL = 99
# leaked SCALAR(0x310e7a8) from template layouts/default.html.ep line 1.
# SV = IV(0x310e798) at 0x310e7a8
# REFCNT = 1
# FLAGS = (IOK,pIOK)
# IV = 23696544
# leaked SCALAR(0x3112ab0) from /usr/share/perl5/Mojo/Message/Response.pm line 78.
# 77: my $headers = $self->headers;
# 78: return [map { @{Mojo::Cookie::Response->parse($_)} } $headers->set_cookie]
# 79: unless @_;
# SV = IV(0x3112aa0) at 0x3112ab0
# REFCNT = 1
# FLAGS = (IOK,pIOK)
# IV = 40017016
# leaked REGEXP(0x3112a98) from /usr/share/perl5/Mojo/IOLoop/Server.pm line 29.
# 28: my $self = shift;
# 29: $ENV{MOJO_REUSE} =~ s/(?:^|\,)\Q$self->{reuse}\E// if $self->{reuse};
# 30: return unless my $reactor = $self->reactor;
# SV = REGEXP(0x3114880) at 0x3112a98
# REFCNT = 1
# FLAGS = ()
# PV = 0x335dba0 "(?^:(?:^|\\,)127\\.0\\.0\\.1\\:52236\\:3)"
# CUR = 35
# COMPFLAGS = 0x0 ()
# EXTFLAGS = 0x600000 (USE_INTUIT_NOML,USE_INTUIT_ML)
# ENGINE = 0x568740 (STANDARD)
# INTFLAGS = 0x0 ()
# NPARENS = 0
# LASTPAREN = 0
# LASTCLOSEPAREN = 0
# MINLEN = 17
# MINLENRET = 17
# GOFS = 0
# PRE_PREFIX = 4
# SUBLEN = 17
# SUBOFFSET = 0
# SUBCOFFSET = 0
# SUBBEG = 0x311ba10 "127.0.0.1:52236:3"\0
# MOTHER_RE = 0x0
# PAREN_NAMES = 0x0
# SUBSTRS = 0x3354d80
# PPRIVATE = 0x30f5090
# OFFS = 0x31236f0
# QR_ANONCV = 0x0
# SAVED_COPY = 0x311afb0
# leaked SCALAR(0x31129f0) from /usr/share/perl5/Mojo/Transaction.pm line 11.
# 10:has req => sub { Mojo::Message::Request->new };
# 11:has res => sub { Mojo::Message::Response->new };
# 12:
# SV = IV(0x31129e0) at 0x31129f0
# REFCNT = 1
# FLAGS = (IOK,pIOK)
# IV = 39960072
# leaked SCALAR(0x3112978) from /usr/share/perl5/Mojo/Message.pm line 14.
# 13:
# 14:has content => sub { Mojo::Content::Single->new };
# 15:has default_charset => 'UTF-8';
# SV = IV(0x3112968) at 0x3112978
# REFCNT = 1
# FLAGS = (IOK,pIOK)
# IV = 38222712
# leaked SCALAR(0x31126a8) from /usr/share/perl5/Mojo/Message/Response.pm line 113.
# 112: my $headers = $self->headers;
# 113: $headers->date(Mojo::Date->new->to_string) unless $headers->date;
# 114:
# SV = IV(0x3112698) at 0x31126a8
# REFCNT = 1
# FLAGS = (IOK,pIOK)
# IV = 40018384
# leaked SCALAR(0x3112588) from /home/nicolasm/perl5/lib/perl5/Test/Builder.pm line 869.
# 868: else {
# 869: $result->{reason} = '';
# 870: $result->{type} = '';
# SV = PV(0x30e4750) at 0x3112588
# REFCNT = 1
# FLAGS = (POK,IsCOW,pPOK)
# PV = 0x15538f0 ""\0
# CUR = 0
# LEN = 10
# COW_REFCNT = 9
# leaked SCALAR(0x311b4d8) from /usr/share/perl5/Mojo/Base.pm line 89.
# 88: # Mojo modules are strict!
# 89: $_->import for qw(strict warnings utf8);
# 90: feature->import(':5.10');
# SV = IV(0x311b4c8) at 0x311b4d8
# REFCNT = 1
# FLAGS = (IOK,pIOK)
# IV = 21587592
# leaked SCALAR(0x311b0d0) from /usr/share/perl5/Mojo/UserAgent.pm line 271.
# 270:
# 271:sub _loop { $_[1] ? Mojo::IOLoop->singleton : $_[0]->ioloop }
# 272:
# SV = IV(0x311b0c0) at 0x311b0d0
# REFCNT = 1
# FLAGS = (IOK,pIOK)
# IV = 24664880
# leaked REGEXP(0x311af68) from /usr/share/perl5/Mojolicious/Routes/Pattern.pm line 38.
# 37: return $captures unless $detect && (my $regex = $self->format_regex);
# 38: return undef unless $$pathref =~ $regex;
# 39: $captures->{format} = $1 if defined $1;
# SV = REGEXP(0x30b45e0) at 0x311af68
# REFCNT = 1
# FLAGS = (FAKE)
# PV = 0x2ddfa70 "(?^:^/?(?:\\.([^/]+))?$)"
# CUR = 23
# COMPFLAGS = 0x0 ()
# EXTFLAGS = 0xe40200 (IS_ANCHORED,USE_INTUIT_NOML,USE_INTUIT_ML,INTUIT_TAIL)
# ENGINE = 0x568740 (STANDARD)
# INTFLAGS = 0x404 (NAUGHTY,ANCH_BOL)
# NPARENS = 1
# LASTPAREN = 0
# LASTCLOSEPAREN = 0
# MINLEN = 0
# MINLENRET = 0
# GOFS = 0
# PRE_PREFIX = 4
# SUBLEN = 1
# SUBOFFSET = 0
# SUBCOFFSET = 0
# SUBBEG = 0x30e25d0 "/"\0
# MOTHER_RE = 0x2ddc2c8
# SV = REGEXP(0x2d1b980) at 0x2ddc2c8
# REFCNT = 2
# FLAGS = ()
# PV = 0x2ddfa70 "(?^:^/?(?:\\.([^/]+))?$)"
# CUR = 23
# COMPFLAGS = 0x0 ()
# EXTFLAGS = 0xe40200 (IS_ANCHORED,USE_INTUIT_NOML,USE_INTUIT_ML,INTUIT_TAIL)
# ENGINE = 0x568740 (STANDARD)
# INTFLAGS = 0x404 (NAUGHTY,ANCH_BOL)
# NPARENS = 1
# LASTPAREN = 0
# LASTCLOSEPAREN = 0
# MINLEN = 0
# MINLENRET = 0
# GOFS = 0
# PRE_PREFIX = 4
# SUBLEN = 0
# SUBOFFSET = 0
# SUBCOFFSET = 0
# SUBBEG = 0x0
# MOTHER_RE = 0x0
# PAREN_NAMES = 0x0
# SUBSTRS = 0x2de1fb0
# PPRIVATE = 0x2de7b60
# OFFS = 0x2decc60
# QR_ANONCV = 0x0
# SAVED_COPY = 0x0
# PAREN_NAMES = 0x0
# SUBSTRS = 0x336c420
# PPRIVATE = 0x2de7b60
# OFFS = 0x336c3e0
# QR_ANONCV = 0x0
# SAVED_COPY = 0x310e5f8
# leaked SCALAR(0x311ad28) from /usr/share/perl5/Mojo/Base.pm line 89.
# 88: # Mojo modules are strict!
# 89: $_->import for qw(strict warnings utf8);
# 90: feature->import(':5.10');
# SV = IV(0x311ad18) at 0x311ad28
# REFCNT = 1
# FLAGS = (IOK,pIOK)
# IV = 21424472
# leaked HASH(0x312a880) from /home/nicolasm/perl5/lib/perl5/Test/Builder.pm line 841.
# 840: my $out;
# 841: my $result = &share( {} );
# 842:
# SV = PVHV(0x1474b50) at 0x312a880
# REFCNT = 1
# FLAGS = (SHAREKEYS)
# ARRAY = 0x33537e0 (0:5, 1:2, 3:1)
# hash quality = 68.2%
# KEYS = 5
# FILL = 3
# MAX = 7
# Elt "ok" HASH = 0x705694d1
# SV = IV(0x339f078) at 0x339f088
# REFCNT = 1
# FLAGS = (IOK,pIOK)
# IV = 1
# Elt "reason" HASH = 0xa57f203b
# SV = PV(0x30e4750) at 0x3112588
# REFCNT = 1
# FLAGS = (POK,IsCOW,pPOK)
# PV = 0x15538f0 ""\0
# CUR = 0
# LEN = 10
# COW_REFCNT = 9
# Elt "type" HASH = 0x354a45b3
# SV = PV(0x2ecbc10) at 0x3105ce8
# REFCNT = 1
# FLAGS = (POK,IsCOW,pPOK)
# PV = 0x1553970 ""\0
# CUR = 0
# LEN = 10
# COW_REFCNT = 9
# Elt "actual_ok" HASH = 0x898e95c3
# SV = PVNV(0x30c2520) at 0x310a118
# REFCNT = 1
# FLAGS = (IOK,pIOK)
# IV = 1
# NV = 0
# PV = 0
# leaked SCALAR(0x312a5f8) from /usr/share/perl5/Test/Mojo.pm line 383.
# 382: local $Test::Builder::Level = $Test::Builder::Level + 2;
# 383: return $self->success(!!Test::More->can($name)->(@args));
# 384:}
# SV = IV(0x312a5e8) at 0x312a5f8
# REFCNT = 1
# FLAGS = (IOK,pIOK)
# IV = 21585600
# leaked SCALAR(0x312a358) from /home/nicolasm/perl5/lib/perl5/Test/Builder.pm line 857.
# 856: $out .= " - $name";
# 857: $result->{name} = $name;
# 858: }
# SV = PV(0x3118ac0) at 0x312a358
# REFCNT = 1
# FLAGS = (POK,IsCOW,pPOK)
# PV = 0x311d890 "200 OK"\0
# CUR = 6
# LEN = 10
# COW_REFCNT = 0
# leaked SCALAR(0x312a070) from /usr/share/perl5/Mojo/Base.pm line 90.
# 89: $_->import for qw(strict warnings utf8);
# 90: feature->import(':5.10');
# 91:}
# SV = IV(0x312a060) at 0x312a070
# REFCNT = 1
# FLAGS = (IOK,pIOK)
# IV = 23698176
# leaked HASH(0x3129e48) from /home/nicolasm/perl5/lib/perl5/Test/Builder.pm line 841.
# 840: my $out;
# 841: my $result = &share( {} );
# 842:
# SV = PVHV(0x2e2d380) at 0x3129e48
# REFCNT = 1
# FLAGS = (SHAREKEYS)
# ARRAY = 0x33aedf0 (0:5, 1:2, 3:1)
# hash quality = 68.2%
# KEYS = 5
# FILL = 3
# MAX = 7
# Elt "ok" HASH = 0x705694d1
# SV = IV(0x3105ea0) at 0x3105eb0
# REFCNT = 1
# FLAGS = (IOK,pIOK)
# IV = 1
# Elt "type" HASH = 0x354a45b3
# SV = PV(0x3118b40) at 0x2ee5360
# REFCNT = 1
# FLAGS = (POK,IsCOW,pPOK)
# PV = 0x1553970 ""\0
# CUR = 0
# LEN = 10
# COW_REFCNT = 9
# Elt "reason" HASH = 0xa57f203b
# SV = PV(0x3118990) at 0x30f1608
# REFCNT = 1
# FLAGS = (POK,IsCOW,pPOK)
# PV = 0x15538f0 ""\0
# CUR = 0
# LEN = 10
# COW_REFCNT = 9
# Elt "actual_ok" HASH = 0x898e95c3
# SV = PVNV(0x30c2500) at 0x310a328
# REFCNT = 1
# FLAGS = (IOK,pIOK)
# IV = 1
# NV = 0
# PV = 0
# leaked SCALAR(0x3129b48) from /usr/share/perl5/Mojo/Template.pm line 173.
# 172: # Capture end
# 173: ($token, $capture) = ("$tag$1", 1) if $token =~ $cpen_re;
# 174:
# SV = PVMG(0x30fadb0) at 0x3129b48
# REFCNT = 1
# FLAGS = (SMG,POK,pPOK,VALID,EVALED,UTF8)
# PV = 0x33922b0 "<%"\0 [UTF8 "<%"]
# CUR = 2
# LEN = 10
# MAGIC = 0x3125560
# MG_VIRTUAL = &PL_vtbl_regexp
# MG_TYPE = PERL_MAGIC_bm(B)
# USEFUL = 100
# leaked REGEXP(0x3129b30) from /usr/share/perl5/Mojolicious/Routes/Pattern.pm line 27.
# 26: # Path
# 27: return undef unless my @captures = $$pathref =~ $self->regex;
# 28: $$pathref = ${^POSTMATCH};
# SV = REGEXP(0x30b4760) at 0x3129b30
# REFCNT = 1
# FLAGS = (FAKE)
# PV = 0x3107240 "(?^ps:^)"
# CUR = 8
# COMPFLAGS = 0x12 (PMf_SINGLELINE,PMf_KEEPCOPY)
# EXTFLAGS = 0x10000212 (PMf_SINGLELINE,PMf_KEEPCOPY,IS_ANCHORED,START_ONLY)
# ENGINE = 0x568740 (STANDARD)
# INTFLAGS = 0x1000 (ANCH_SBOL)
# NPARENS = 0
# LASTPAREN = 0
# LASTCLOSEPAREN = 0
# MINLEN = 0
# MINLENRET = 0
# GOFS = 0
# PRE_PREFIX = 6
# SUBLEN = 1
# SUBOFFSET = 0
# SUBCOFFSET = 0
# SUBBEG = 0x3108040 "/"\0
# MOTHER_RE = 0x3103100
# SV = REGEXP(0x30b48e0) at 0x3103100
# REFCNT = 2
# FLAGS = ()
# PV = 0x3107240 "(?^ps:^)"
# CUR = 8
# COMPFLAGS = 0x12 (PMf_SINGLELINE,PMf_KEEPCOPY)
# EXTFLAGS = 0x10000212 (PMf_SINGLELINE,PMf_KEEPCOPY,IS_ANCHORED,START_ONLY)
# ENGINE = 0x568740 (STANDARD)
# INTFLAGS = 0x1000 (ANCH_SBOL)
# NPARENS = 0
# LASTPAREN = 0
# LASTCLOSEPAREN = 0
# MINLEN = 0
# MINLENRET = 0
# GOFS = 0
# PRE_PREFIX = 6
# SUBLEN = 0
# SUBOFFSET = 0
# SUBCOFFSET = 0
# SUBBEG = 0x0
# MOTHER_RE = 0x0
# PAREN_NAMES = 0x0
# SUBSTRS = 0x336bdb0
# PPRIVATE = 0x336bd70
# OFFS = 0x24c5c20
# QR_ANONCV = 0x0
# SAVED_COPY = 0x0
# PAREN_NAMES = 0x0
# SUBSTRS = 0x336c190
# PPRIVATE = 0x336bd70
# OFFS = 0x313afc0
# QR_ANONCV = 0x0
# SAVED_COPY = 0x31060a8
# leaked SCALAR(0x339f088) from /home/nicolasm/perl5/lib/perl5/Test/Builder.pm line 848.
# 847: else {
# 848: @$result{ 'ok', 'actual_ok' } = ( 1, $test );
# 849: }
# SV = IV(0x339f078) at 0x339f088
# REFCNT = 1
# FLAGS = (IOK,pIOK)
# IV = 1
1..9
# Looks like you failed 1 test of 9.
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment