Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
doctor
#perl 5.22.1 package Doctor; use JSON; our $name=""; sub new{ my($pkg,$Props) = @_; my $self = {}; for my $key (keys %$Props){ $self{$key}=$$Prop{$key} }; return bless $self, $pkg; }; sub profile{ my($self,$profile)=@_; for my $key (keys %$profile){ $self{profile}{$key}=$$profile{$key} } if @_ > 1; return $self->{profile} } sub get{ my $self=shift; my $tree="{".join ("}{",split(/\:/,shift)); if (eval {'exists $self'.$tree}){return eval { 'exists $self'.$tree } }; sub toJSON{ }; } 1; package main; use strict; use warnings;
run
|
edit
|
history
|
help
0
Splice
Updated Safe 2.1 Solution
Test 41/2
Array_with_pop_function
Perl circular list
Array_with_push_function
matrx travarsal
Riyali-101738
FOP utilities
main_objetos