Perlã¾ãŸã¯JavaScriptã§Objectã‚’æ–‡å—列ã¨ã—ã¦è©•ä¾¡ã—ãŸã¨ãã®æŒ™å‹•ã‚’コントãƒãƒ¼ãƒ«ã™ã‚‹æ–¹æ³•ã€‚ - 時計を壊ã›ä¾‹ãˆã°ã€Perlã§ã¯ã‚ªãƒ–ジェクトを文å—列ã¨ã—ã¦è©•ä¾¡ã—ãŸã¨ãã®æŒ™å‹•ã‚’コントãƒãƒ¼ãƒ«ã—ãŸã„å ´åˆã¯ã€ 以下ã®ã‚ˆã†ã«overloadプラグマを利用ã—ã¦æ–‡å—列化ã®ãŸã‚ã®ãƒ¡ã‚½ãƒƒãƒ‰ã‚’coderefã¨ã—ã¦ç™»éŒ²ã™ã‚‹ã¨è‰¯ã„。 package MyURI; use strict; use warnings; use utf8; use Class::Accessor::Lite ( rw => [qw/scheme host path query/], new => 1, ); use overload ( q{""} => \&as_string, fallback => 1, ); sub as_string { my $self = shift; my $uri_str = sprintf '%s://%s%s', $self->scheme, $self->host, $self->path; $uri_
{{#tags}}- {{label}}
{{/tags}}