use warnings;
use strict;

package Dog;

sub MODIFY_SCALAR_ATTRIBUTES {
    my $class = shift;
    my $ref = shift;

    my %dog;
    @dog{@_} = (1) x @_;

    $$ref = \%dog;
    bless $$ref, $class;
    print "Woof!\n";
    ();
}