/usr/local/CPAN/UR/UR/Value/Set.pm

• package UR::Value::Set
  • members
• EOF

package UR::Value::Set;

use strict;
use warnings;
require UR;

sub members {
    my $self = shift;
    my %params = $self->rule->params_list;
    my $id = $params{id};
    if (ref($id) eq 'ARRAY') {
        return (@$id);
    }
    else {
        return ($id);
    }
}

1;