sub name {                                                                    
     my $self = shift @_;                                                      
     if (scalar @_ and defined $_[0]) {                                        
         $self->{'Name'} = PDFName($_[0]);                                     
     }                                                                         
     return $self->{'Name'}->val();                                            
 }