sub data
 {
   my ( $self, $attr ) = @_ ;
   return $self->{'data'}->{$attr} ;
 }