File Coverage

blib/lib/OpenFrame/WebApp/User/Factory.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

=head1 NAME

OpenFrame::WebApp::User::Factory - a factory for creating users

=head1 SYNOPSIS

  use OpenFrame::WebApp::User::Factory;

  my $ufactory = new OpenFrame::WebApp::User::Factory()->type('webapp');
  my $user     = $ufactory->new_user( @args );

=cut

package OpenFrame::WebApp::User::Factory;

use strict;
use warnings::register;

use OpenFrame::WebApp::User;

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

use base qw ( OpenFrame::WebApp::Factory );

sub get_types_class {
    my $self = shift;
    return OpenFrame::WebApp::User->types->{$self->type};
}

sub new_user {
    my $self = shift;
    return $self->new_object( @_ );
}

1;

__END__