The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

use 5.006;
use strict;
use Test::More 0.96;
my $obj1 = bless {}, "Foo";
like(
exception { objectify $obj1 },
qr/Error: Can't objectify an object of class Foo/,
"C<objectify OBJECT> is fatal"
);
like(
exception { objectify [] },
qr/Error: Can't objectify a reference of type ARRAY/,
"C<objectify ARRAYREF> is fatal"
);
like(
exception { objectify "Bar" },
qr/Error: Can't objectify a scalar value/,
"C<objectify SCALAR> is fatal"
);
done_testing;
#
# This file is part of Hash-Objectify
#
# This software is Copyright (c) 2012 by David Golden.
#
# This is free software, licensed under:
#
# The Apache License, Version 2.0, January 2004
#