package SNMPDevice; use strict; use SNMPDevice::CiscoWLC; use SNMPDevice::Juniper; use SNMPDevice::Generic; sub new { my( $class, %args ) = @_; my $instance_class; if( $args{ cisco } ) { $instance_class = 'SNMPDevice::CiscoWLC'; } elsif( $args{ juniper }) { $instance_class = 'SNMPDevice::Juniper'; } else { $instance_class = 'SNMPDevice::Generic'; }; return $instance_class->new( %args ); } 1;