Select Code to Download

#!/usr/bin/perl -w
use strict;
...
mix ( $whisperer, 'mixin_shadow' );
$whisperer->speak;
print "whisperer is still an Object\n"  if  $whispererpk->isa('Object'
+);

sub mix {
  my ( $object, @classes ) = @_;
...
  };
  bless $object, $package_name;
}

<blob_element>
  <name>picture</name>
  <mixin>XML::Comma::Mixin::Standard_Image</mixin>
  <mixin>XML::Comma::Mixin::Auto_Versioning</mixin>
</blob_element>