OpenFrame::WebApp::Segment::User - abstract class for getting Users

OpenFrame-WebApp documentation Contained in the OpenFrame-WebApp distribution.

Index

Code Index:

NAME

Top

OpenFrame::WebApp::Segment::User - abstract class for getting Users from the store.

SYNOPSIS

Top

  # abstract class - cannot be used directly

  use base qw( OpenFrame::WebApp::Segment::User );

  sub dispatch {
      ...
      my $user $self->get_user_from_store;
      ...
  }

DESCRIPTION

Top

The OpenFrame::WebApp::Segment::User class provides a method for getting User objects from the store.

This class inherits its interface from Pipeline::Segment. You must override dispatch() for it to do anything.

METHODS

Top

get_user_from_store

If the store is a Pipeline::Store::ISA, looks for a descendant of OpenFrame::WebApp::User, otherwise looks for known OpenFrame::WebApp::User->types().

AUTHOR

Top

Steve Purkis <spurkis@epn.nu>

COPYRIGHT

Top

Copyright (c) 2003 Steve Purkis. All rights reserved. Released under the same license as Perl itself.

SEE ALSO

Top

Pipeline::Segment, OpenFrame::WebApp::User

OpenFrame-WebApp documentation Contained in the OpenFrame-WebApp distribution. 
package OpenFrame::WebApp::Segment::User;

use strict;
use warnings::register;

use OpenFrame::WebApp::User;
use OpenFrame::WebApp::Error::Abstract;

our $VERSION = (split(/ /, '$Revision: 1.2 $'))[1];

use base qw( Pipeline::Segment );

## try various methods to find a user in the store
sub get_user_from_store {
    my $self = shift;
    my $user;

    if ($self->store->isa( 'Pipeline::Store::ISA' )) {
	$user = $self->store->get('OpenFrame::WebApp::User');
    } else {
	foreach my $class (values %{ OpenFrame::WebApp::User->types }) {
	    last if( $user = $self->store->get($class) );
	}
    }

    return $user;
}

1;

__END__