package Foo;

sub get_data { $_[0]->{data} }

package main;
use strict;
use warnings;
use Bar;

my $blackbox = bless { 
    data => "\x3foo\x3bar\x3bazasdfasdfasdfasdf",
}, Foo;

my $object = Bar->new;
my $deserialized = [ $object->deserialize( $blackbox ) ];

is_deeply($deserialized, [ qw(foo bar baz) ], 
    "Deserializer decodes correctly");