Commits

Toby Inkster committed 0c42a47

Call object_id as a method.

Comments (0)

Files changed (1)

lib/CGI/Auth/FOAF_SSL.pm

 BEGIN
 {
 	$VERSION = '1.002';
-	$ua_string = sprintf('%s/%s ', __PACKAGE__, $VERSION);	
-
+	$ua_string = sprintf('%s/%s ', __PACKAGE__, $VERSION);
+	
 	$WWW_Finger = 0;
 	if (0) # DISABLED
 	{
 {
 	my ($self) = @_;
 
-	$AGENT->{ object_id($self) } ||= CGI::Auth::FOAF_SSL::Agent->new(
+	$AGENT->{ $self->object_id } ||= CGI::Auth::FOAF_SSL::Agent->new(
 		$self->subject_uri,
 		$self->subject_model,
 		$self->subject_endpoint,
 		);
 
-	return $AGENT->{ object_id($self) };
+	return $AGENT->{ $self->object_id };
 }
 
 *certified_thing = \&subject;
 SPARQL
 
 	my $results = rdf_query($query_string, $model);
-
+	
 	RESULT: while (my $result = $results->next)
 	{
 		# trim any whitespace around modulus (HACK for MyProfile WebIDs)
 	my ($self) = shift;
 	if (@_)
 	{
-		$MODEL->{ object_id($self) } = shift;
+		$MODEL->{ $self->object_id } = shift;
 	}
-	return $MODEL->{ object_id($self) };
+	return $MODEL->{ $self->object_id };
 }
 
 # Documentation in Advanced.pod
 	
 	if (@_)
 	{
-		$SESSION->{ object_id($self) } = shift;
+		$SESSION->{ $self->object_id } = shift;
 	}
-
-	unless (defined $SESSION->{ object_id($self) })
+	
+	unless (defined $SESSION->{ $self->object_id })
 	{
 		my $s = CGI::Session->new('driver:file', undef, {Directory => File::Spec->tmpdir});
 		$s->expire('+1h');
-		$SESSION->{ object_id($self) } = $s;
+		$SESSION->{ $self->object_id } = $s;
 	}
 	
-	return $SESSION->{ object_id($self) };
+	return $SESSION->{ $self->object_id };
 }
 
 # Documentation in Advanced.pod