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
Riyali-101738
exam ata
PWC 059-1
base N conversion
Array_range_operators
version check
Soumya 101758
hash of arrays of arrays
Sea
Lieta 101733