view release on metacpan or  search on metacpan

lib/Echo/StreamServer/Users.pm  view on Meta::CPAN

                if ((not defined($raise_not_found)) and ($@ =~ m/\[not_found\]/)) {
                        # not_found OK
                }
                else {
                        die($@);
                }
        }
	return $json_hash_ref;
}

sub update {
	my ($self, $identity_url, $subject, $content) = @_;

	unless (grep(m/^$subject$/, @USER_SUBJECTS)) {
		die("Users API must update a valid subject (" . join(', ', @USER_SUBJECTS) . "), not '$subject'");
	}

	# Convert content to a JSON document.
	my %params = (
		'identityURL' => $identity_url,
		'subject' => $subject,