diff --git a/lib/App/Netdisco/Util/Port.pm b/lib/App/Netdisco/Util/Port.pm index 85c33f3b..495d2bd3 100644 --- a/lib/App/Netdisco/Util/Port.pm +++ b/lib/App/Netdisco/Util/Port.pm @@ -235,7 +235,9 @@ Returns true if the C<$port> L object has a phone connected. =cut sub port_has_phone { - my $properties = (shift)->properties; + my $row = shift; + return $row->remote_is_phone if $row->can('remote_is_phone'); + my $properties = $row->properties; return ($properties ? $properties->remote_is_phone : undef); } @@ -246,7 +248,9 @@ Returns true if the C<$port> L object has a wireless AP connected. =cut sub port_has_wap { - my $properties = (shift)->properties; + my $row = shift; + return $row->remote_is_wap if $row->can('remote_is_wap'); + my $properties = $row->properties; return ($properties ? $properties->remote_is_wap : undef); }