Sign in
webkit
/
WebKit
/
0a96ecead66fc2b281c375dd55693d98caa1bcfe
/
.
/
Tools
/
Scripts
/
test262
/
local
/
lib
/
perl5
/
YAML
/
Tag.pm
blob: 57aef461ce0501cf2f23ea771f3f5fd707ad865a [
file
] [
log
] [
blame
]
use
strict
;
use
warnings
;
package
YAML
::
Tag
;
use
overload
'""'
=>
sub
{
$
{
$_
[
0
]}
};
sub
new
{
my
(
$class
,
$self
)
=
@_
;
bless \$self
,
$class
}
sub
short
{
$
{
$_
[
0
]}
}
sub
canonical
{
$
{
$_
[
0
]}
}
1
;