File Coverage

blib/lib/CGI/Application/Plugin/DetectAjax.pm

Criterion	Covered	Total	%
statement	11	11	100.0
branch	2	2	100.0
condition	2	3	66.6
subroutine	3	3	100.0
pod	1	1	100.0
total	19	20	95.0

package CGI::Application::Plugin::DetectAjax;

use strict;
use vars qw($VERSION @EXPORT);

require Exporter;

@CGI::Application::Plugin::DetectAjax::ISA = qw(Exporter);

$VERSION = '0.06';

@EXPORT = qw(
  is_ajax
);

sub is_ajax {

  my $self = shift;


  my $header = 'HTTP_X_REQUESTED_WITH';

  if (exists $ENV{$header} && lc $ENV{$header} eq 'xmlhttprequest') {
    return 1;
  }
  else {
    return 0;
  }

}


1;

__END__