_Undefined.pm 358 B

12345678910111213141516171819202122
  1. package NIC::Bridge::_Undefined;
  2. use strict;
  3. use warnings;
  4. use parent qw(NIC::Bridge::_BridgedObject);
  5. use overload "bool" => sub {
  6. return 0;
  7. };
  8. our $AUTOLOAD;
  9. sub AUTOLOAD {
  10. my $method = $AUTOLOAD;
  11. $method =~ s/.*:://;
  12. NIC::Bridge::Context::error("Method '$method' called on nonexistent NIC Bridge object.");
  13. }
  14. sub DESTROY {
  15. my $self = shift;
  16. }
  17. 1;