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