use strict;
use warnings;

use Data::Dumper;

# Turn stuff into blessed objects
my $foo = 'THIS IS A SCALAR';
my $bar = [qw(THIS IS AN ARRAY)];
my $baz = {'This' => 'Is', 'A' => 'Hash'};

# Bless them with a class that doesn't technically exist yet (and have Perl autovivify it for us)
my $scalarobject = bless \$foo, 'This::Is::A::Dummy::Object';
my $arrayobject = bless $bar, 'This::Is::A::Dummy::Object';
my $hashobject = bless $baz, 'This::Is::A::Dummy::Object';

{
    # Force the This::Is::A::Dummy::Object class to have a print method that stringifies its own object ;-)
    no strict 'refs';
    *{'This::Is::A::Dummy::Object::stringify'} = sub{ my ($self) = @_; print Dumper($self); };
}

$scalarobject->stringify();
$arrayobject->stringify();
$hashobject->stringify();

##</code><code>##

$VAR1 = bless( do{\(my $o = 'THIS IS A SCALAR')}, 'This::Is::A::Dummy::Object' );
$VAR1 = bless( [
                 'THIS',
                 'IS',
                 'AN',
                 'ARRAY'
               ], 'This::Is::A::Dummy::Object' );
$VAR1 = bless( {
                 'This' => 'Is',
                 'A' => 'Hash'
               }, 'This::Is::A::Dummy::Object' );