1package Classes::UPNP::AVM; 2our @ISA = qw(Classes::UPNP); 3use strict; 4 5sub init { 6 my ($self) = @_; 7 if ($self->{productname} =~ /(7390|7490|7580|7590|6490|7412)/) { 8 $self->rebless('Classes::UPNP::AVM::FritzBox7390'); 9 } else { 10 $self->no_such_model(); 11 } 12 if (ref($self) ne "Classes::UPNP::AVM") { 13 $self->init(); 14 } 15} 16 17