Package HTML::LadyAleenaStyle;
use strict;
use warnings;
#use Carp;
use deparse; #see corrupt code further down
use base Exporter;
use Base::Nifty qw(line sline);
our @EXPORT = qw(html body script noscript etc);
our @EXPORT_OK = qw(table form nonessential etc);
my $inflag; # indentation flag for checking.
my $in; # indentation depth variable.
# Expect indentation flag may need to be a constant for checking.
# Need to review how to set the constant correctly.
sub import{
# strip out the indentation pragma from the argument list;
$inflag = ($1) = grep s/^-in(\d){1}$//, @_; # untested
$in = 0 if $inflag; # start indentation depth at 0 if flag set >= 1;
# pass arg list to Exporter for usual behaviour;
SUPER::import(@_);
}
# now if flag set, determine if child element and alter depth.
# this code is a suggestive starting point.
# the depth decrement requirements would also need to be determined.
# this sub code is gibberish.
sub element{
if($inflag){
if(my $indent = map ref(CODE), @_){
$in++ if( grep deparse(&{CODE}) =~ /CHILD ELEMENT SUB/ );
}
}
# rest of sub
...
#return
line($in, $open,);
}