Select Code to Download

Select or download this
```
print Data::Dumper($data)
```

/////////////////////////////////////////////////////////////////
 bless( {
...
                               NoAttr=>1,
                               RootName=>ref($self)
               );

Select or download this

///////////////////////////////////////////////////////////////

...


///////////////////////////////////////////////////////////////////

Select or download this

///////////////////////////////////////////////////////////////////
    my $xml = XML::Simple->new(XMLDecl=>1,
...
                               RootName=>"mtl"
                               );
///////////////////////////////////////////////////////////////////

Select or download this

///////////////////////////////////////////////////////////////////
 bless( {
...
                 'path' => 'jmm_mtl'
               }, 'material' );
///////////////////////////////////////////////////////////////////