12345678910111213141516171819202122 |
- package NIC::Bridge::_Undefined;
- use strict;
- use warnings;
- use parent qw(NIC::Bridge::_BridgedObject);
- use overload "bool" => sub {
- return 0;
- };
- our $AUTOLOAD;
- sub AUTOLOAD {
- my $method = $AUTOLOAD;
- $method =~ s/.*:://;
- NIC::Bridge::Context::error("Method '$method' called on nonexistent NIC Bridge object.");
- }
- sub DESTROY {
- my $self = shift;
- }
- 1;
|