Select Code to Download

if (%arg) {                                    #performed only if obj.
+ arguments given
        my %_temp_hash = _return_attr_data();            #returns list
+ of obj. attributes
...
            croak "An invalid CD attribute given";        #if not, cro
+aks with error
        }
    }

package Music;
$VERSION = 1.00;
...
        keys %_attr_data;
    }

    sub _return_attr_data {
        %_attr_data;
    }

    
    # Retrieve object count
...
    my $caller_is_obj = ref($caller);
    my $class = $caller_is_obj || $caller;
    my $self = bless {}, $class;

    if (%arg) {
        my %_temp_hash = _return_attr_data();
        foreach my $argcheck (keys %arg) {
...
            croak "An invalid CD attribute given";
        }
    }

        
    foreach my $attrname ( $self->_standard_keys() ) {
        my ($argname) = ($attrname =~ /^_(.*)/);
...
}

1; # Ensure that the module can be succesfully use'd