sub new {
  my $class = shift;
  my $session = shift;

.......

  my $asset = SUPER::new($session, [and other args]);
  
  ##Do special stuff here
  
  return $asset;
}