# This code was forked from the LiveJournal project owned and operated # by Live Journal, Inc. The code has been modified and expanded by # Dreamwidth Studios, LLC. These files were originally licensed under # the terms of the license supplied by Live Journal, Inc, which can # currently be found at: # # http://code.livejournal.org/trac/livejournal/browser/trunk/LICENSE-LiveJournal.txt # # In accordance with the original license, this code and all its # modifications are provided under the GNU General Public License. # A copy of that license can be found in the LICENSE file included as # part of this distribution. package LJ::Directory::Constraint::Test; use strict; use warnings; use base 'LJ::Directory::Constraint'; use Carp qw(croak); sub new { my ( $pkg, %args ) = @_; my $self = bless {}, $pkg; $self->{$_} = delete $args{$_} foreach qw(uids); croak "unknown args" if %args; return $self; } sub matching_uids { my $self = shift; return split( /\s*,\s*/, $self->{uids} || "" ); } sub cache_for { 5 } 1;