| $ perl | |
| package An::Object; | |
| use Moose; | |
| has prop => ( is => 'ro' ); | |
| package An; | |
| sub Object { 'FakePackage' } | |
| package main; | |
| print An::Object->new( prop => 'prop' )->prop; |
| * ff92b519 | |
| |\ | |
| | * b9c2e03b | |
| | |\ | |
| | | * 375de9f6 | |
| | |/ | |
| | * ca82daa9 | |
| | * f7592220 | |
| | * 5f16ae36 | |
| | * ab666054 |
| multi to-base-alphabet ( Real $num, @alphabet, :$precision = -15 ) is export { | |
| temp @__base-any-digits = @alphabet; | |
| temp $threshold = +@alphabet; | |
| say $threshold; | |
| return convert-arbitrary-base( $num, $threshold, :$precision ); # 137 | |
| } |
| To exit type 'exit' or '^D' | |
| > role X { multi method moo (X:U:) { self.new.moo }; multi method moo (X:D:) { ... } } | |
| (X) | |
| > class A does X {} | |
| ===SORRY!=== Error while compiling: | |
| Multi method 'moo' with signature :(X:D: *%_) must be implemented by A because it is required by a role | |
| > role Y { multi method bar (::?CLASS:U:) { self.new.bar }; multi method bar (::?CLASS:D:) { ... } } | |
| (Y) | |
| > class B does Y {} | |
| ===SORRY!=== Error while compiling: |
| --> Working on Dist::Zilla::Plugin::ModuleBuildTiny | |
| Fetching http://www.cpan.org/authors/id/L/LE/LEONT/Dist-Zilla-Plugin-ModuleBuildTiny-0.015.tar.gz | |
| -> OK | |
| Unpacking Dist-Zilla-Plugin-ModuleBuildTiny-0.015.tar.gz | |
| Entering Dist-Zilla-Plugin-ModuleBuildTiny-0.015 | |
| Checking configure dependencies from META.json | |
| Checking if you have Module::Build::Tiny 0.034 ... Yes (0.039) | |
| Configuring Dist-Zilla-Plugin-ModuleBuildTiny-0.015 | |
| Running Build.PL | |
| Creating new 'Build' script for 'Dist-Zilla-Plugin-ModuleBuildTiny' version '0.015' |
| 174,124,123,34,116,34,58,34,71,85,73,76,68,95,67,82,69,65,84,69,34,44,34,115,34,58,50,44,34,111,112,34,58,48,44,34,100,34,58,123,34,106,111,105,110,101,100,95,97,116,34,58,34,50,48,49,57,45,48,56,45,51,48,84,48,57,58,50,52,58,52,48,46,51,51,51,48,48,48,43,48,48,58,48,48,34,44,34,100,101,115,99,114,105,112,116,105,111,110,34,58,110,117,108,108,44,34,112,114,101,109,105,117,109,95,116,105,101,114,34,58,48,44,34,97,102,107,95,99,104,97,110,110,101,108,95,105,100,34,58,110,117,108,108,44,34,101,109,111,106,105,115,34,58,91,123,34,114,111,108,101,115,34,58,91,93,44,34,114,101,113,117,105,114,101,95,99,111,108,111,110,115,34,58,116,114,117,101,44,34,110,97,109,101,34,58,34,109,115,97,65,121,97,121,97,34,44,34,109,97,110,97,103,101,100,34,58,102,97,108,115,101,44,34,105,100,34,58,34,54,49,54,55,50,48,48,55,53,57,49,52,55,51,57,55,49,51,34,44,34,97,118,97,105,108,97,98,108,101,34,58,116,114,117,101,44,34,97,110,105,109,97,116,101,100,34,58,102,97,108,115,101,125,44,123,34,114,111,108,101,115,34,58,91,93,44,34,114,101 |
| method from-json (%json) { | |
| my %constructor = %json<id name icon splash>:kv; | |
| %constructor<is-owner> = %json<owner>; | |
| %constructor<roles> = %( | |
| %json<roles><>.map: { $_<id> => Role.from-json($_) } | |
| ); | |
| dd %constructor; |
Service-oriented architecture is a scheme by which a system is built out of separate, encapsulated components that communicate as services.
This mirrors the concept of microservices, except where microservices communicate between processes, and often between hosts, SOA services can be installed in-process.
| ===> Testing: Red:ver<0.0.3>:auth<Fernando Correa de Oliveira>:api<1> | |
| t/00-meta.t ........................ ok | |
| t/01-basic.t ....................... ok | |
| t/02-tdd.t ......................... No subtests run | |
| t/03-sqlite.t ...................... No subtests run | |
| t/04-blog.t ........................ No subtests run | |
| t/05-ticket.t ...................... No subtests run | |
| t/06-better-map.t .................. No subtests run | |
| t/07-optimizer.t ................... No subtests run | |
| t/08-best-tree.t ................... No subtests run |
| > my @role-ids = 537710338498363393; | |
| [537710338498363393] | |
| > say 537710338498363393 ~~ @role-ids; | |
| False | |
| > say @role-ids ~~ 537710338498363393; | |
| False | |
| > say @role-ids ~~ "537710338498363393"; | |
| True | |
| > say "537710338498363393" ~~ @role-ids; | |
| False |