Commit 702fd597 authored by Leigh B Stoller's avatar Leigh B Stoller
Browse files

Ad IsRepoBased() predicate.

parent 56c6b5f1
#!/usr/bin/perl -wT
#
# Copyright (c) 2007-2016 University of Utah and the Flux Group.
# Copyright (c) 2007-2017 University of Utah and the Flux Group.
#
# {{{EMULAB-LICENSE
#
......@@ -256,6 +256,12 @@ sub DESTROY {
$self->{'DBROW'} = undef;
}
sub IsRepoBased($) {
my ($self) = @_;
return (defined($self->repourl()) ? 1 : 0);
}
#
# Refresh a class instance by reloading from the DB.
#
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment