File Coverage

lib/CGI/Application/Plugin/Feedback.pm

Criterion	Covered	Total	%
statement	27	41	65.8
branch	5	10	50.0
condition	1	2	50.0
subroutine	6	8	75.0
pod	5	5	100.0
total	44	66	66.6

package CGI::Application::Plugin::Feedback;
use strict;
require Exporter;
require CGI::Application;
require CGI::Application::Plugin::Session;

use vars qw/@ISA @EXPORT_OK %EXPORT_TAGS $VERSION/;
$VERSION = sprintf "%d.%02d", q$Revision: 1.5 $ =~ /(\d+)/g;

# export ...
@ISA = qw(Exporter);
@EXPORT_OK = qw(feedback get_feedback_prepped feedback_exists get_feedback_html get_feedback_text);
%EXPORT_TAGS = (
 all =>  \@EXPORT_OK ,
);

sub import {
   __PACKAGE__->export_to_level(1,@_,@EXPORT_OK);
}





sub feedback {
	my $self = shift;
	my $add = shift;


	my $feedback = $self->session->param('feedback');

	if ($add){
		push @{$feedback}, $add;
		$self->session->param(feedback=> $feedback);
		return 1;
	}

	$feedback or return [];

	# clear it
	$self->session->param(feedback=> []);

	return $feedback;
}


sub feedback_exists {
	my $self = shift;
	if ( defined $self->session->param('feedback')
      and scalar @{$self->session->param('feedback')}
   ){
		return 1;
	}
	return 0;
}

sub get_feedback_html {
	my $self = shift;
   $self->feedback_exists or return '';

	my $html;
	for( @{$self->feedback} ){
		$html.= "$_";
	}
	return $html;
}

sub get_feedback_text {
	my $self = shift;
   $self->feedback_exists or return '';

	my $text = join("\n\n", @{$self->feedback} );
	return $text;
}

sub get_feedback_prepped {
	my $self = shift;
	my @prepped;
	for (@{$self->feedback}){
		push @prepped, { FEEDBACK => $_ };
	}
	return \@prepped;
}

1;

__END__