view release on metacpan or  search on metacpan

lib/AxKit/App/TABOO/Data.pm  view on Meta::CPAN

	  if (($content) && (defined($self->elementneedsparse)) && ($self->elementneedsparse =~ m/\b$key\b/)) {
	    my $hss=HTML::StripScripts::LibXML->new(
                        {Context=>'Flow',
			 BanList => [qw( style font center blink marquee ) ],
			 AllowHref => 1,
			 AllowSrc => 1,
			 AllowMailto => 1,
			 Rules   => { 
				     'caption'   => \&_style_callback,
				     'input'   => \&_style_callback,
				     'legend'   => \&_style_callback,
				     'table'   => \&_style_callback,
				     'hr'   => \&_style_callback,
				     'div'   => \&_style_callback,
				     'p'   => \&_style_callback,
				     'h1'   => \&_style_callback,
				     'h2'   => \&_style_callback,
				     'h3'   => \&_style_callback,
				     'h4'   => \&_style_callback,
				     'h5'   => \&_style_callback,
				     'h6'   => \&_style_callback,