File Coverage

blib/lib/UR/Object/Command/CrudUtil.pm

Criterion	Covered	Total	%
statement	12	13	92.3
branch	7	8	87.5
condition	3	3	100.0
subroutine	3	3	100.0
pod	0	1	0.0
total	25	28	89.2

package UR::Object::Command::CrudUtil;

use strict;
use warnings 'FATAL';

class UR::Object::Command::CrudUtil {
    doc => 'Utils for CRUD commands',
};

sub display_id_for_value {
    my ($class, $value) = @_;

    if ( not defined $value ) {
        'NULL';
    }
    elsif ( ref($value) eq 'HASH' or ref($value) eq 'ARRAY' ) {
        die 'Do not pass HASH or ARRAY to display_id_for_value!';
    }
    elsif ( not Scalar::Util::blessed($value) ) {
        $value;
    }
    elsif ( $value->can('id') ) {
        $value->id;
    }
    else { # stringify
        "$value";
    }
}

1;