You can't take no for an answer, moscow-pm!
2011/06/09 12:00:20 -0700 [email protected] => To [email protected] :

> многие сериализаторы банально падают получая объект на вход (как
> например некоторые вещи вроде JSON), а некоторые сериализуют

    use Scalar::Util "blessed";
    use JSON qw/-convert_blessed_universally/;

    my $json  = JSON->new->utf8;
    $json->convert_blessed(1);
    my $class = "Classie";
    my $obj   = bless { qw/abcd efgh/ } => $class;

    say $json->encode( { blessed $obj => $obj } );

?

73! Peter pgp: A0E26627 (4A42 6841 2871 5EA7 52AB  12F8 0CE1 4AAC A0E2 6627)
--
http://vereshagin.org
-- 
Moscow.pm mailing list
[email protected] | http://moscow.pm.org

Ответить