File Coverage

lib/HTML/Template/Menu.pm

Criterion	Covered	Total	%
statement	114	116	98.2
branch	21	30	70.0
condition	7	9	77.7
subroutine	24	24	100.0
pod	9	9	100.0
total	175	188	93.0

package HTML::Template::Menu;
use strict;
use LEOCHARRE::DEBUG;
use warnings;
use Carp;

$HTML::Template::Menu::DEFAULT_TMPL = q{

[]
};


sub new {
   my $class = shift;
   my $self = {};
   bless $self,$class;
   return $self;
}

sub name {
   my $self = shift;
   $self->{_name_} ||= 'main'; # redundant (?)
   return $self->{_name_};
}

sub _name_set {
   my($self,$val) = @_;
   defined $val or confess;
   return $self->{_name_} = $val;
   return 1;
}

sub name_set {
   my($self,$val) = @_;
   defined $val or confess;
   $self->_name_set($val);
   return 1;
}

sub count {
   my $self = shift;
   my $a = $self->_get_menuitems_order;
   return scalar @$a;
}

sub loop {
   my $self = shift;
   my $loop = $self->_get_main_menu_loop;
   return $loop;
}

sub __to_icon_name {
   my $r = lc( __prettify_string($_[0]) );
   $r=~s/ {1,}/_/g;
   $r;

}

sub add {
   my($self,$arg1,$label) = @_;
   defined $arg1 or confess('missing argument');

   my $url;

   if (__is_runmode_name($arg1) ){

      $url = "?rm=$arg1"; # TODO, what is the runmode param string method in CGI::Application ?
      $label = __runmode_name_prettyfy($arg1) unless defined $label;
   }
   elsif (__is_url($arg1) ){
      $label = __url_prettyfy($arg1) unless defined $label;
      $url = $arg1;
   }
   else {
      $url = $arg1;
   }
   $label = $url unless defined $label;

   my $icon=__to_icon_name($label);

   debug(" arg1 $arg1, url $url, label $label, icon $icon\n");

   $self->_add_menu_item($arg1,$url,$label,$icon) or return 0;
   return 1;
}

sub _add_menu_item {
   my ($self,$arg1,$url,$label,$icon) = @_;

   my $hash = $self->_get_menuitems;
   my $array = $self->_get_menuitems_order;

   if (exists $hash->{$arg1}){
      debug("Menu item [$arg1] was already entered. Skipped.\n");
      return 0;
   }

   push @$array, $arg1;


   $hash->{$arg1} = {
      arg1 => $arg1,
      url => $url,
      label => $label,
      icon => $icon,
   };

   return 1;
}

sub _get_main_menu_loop {
   my $self = shift;

   my $hash = $self->_get_menuitems;
   my $array = $self->_get_menuitems_order;

   my $loop=[];
   for (@$array){
      my  $arg1 = $_;
      push @$loop, { url => $hash->{$arg1}->{url}, label => $hash->{$arg1}->{label}, icon => $hash->{$arg1}->{icon} };
   }
   return $loop;
}

sub _get_menuitems {
   my $self = shift;
   $self->{__menuitems__} ||={};
   return $self->{__menuitems__};
}

sub _get_menuitems_order {
   my $self = shift;
   $self->{__menuitems__order__} ||=[];
   return $self->{__menuitems__order__};
}

sub __prettify_string {
   my $val = shift;
   my $label = lc $val;
   $label=~s/\W/ /g;
   $label=~s/^\s+|\s+$//g;

   $label=~s/\_+|\s{2,}/ /g;
   $label=~s/\b([a-z])/uc $1/eg;
   return $label;
}

sub __runmode_name_prettyfy {
   my $val = shift;

   my $label = lc $val;
   $label=~s/\_/ /g;
   $label=~s/\b([a-z])/uc $1/eg;
   return $label;
}

sub __is_runmode_name {
   my $val = shift;
   $val =~/^[a-z0-9_]+$/i or return 0;
   return 1;
}

sub __is_url {
   my $val = shift;
   return 0 if __is_runmode_name($val);
   return 1;

}

sub __url_prettyfy {
   my $val = shift;
   if ($val eq '/'){ return 'Home'; }
   $val=~s/\/+$//;
   $val=~s/^.+\/+//;
   $val=~s/\.\w{1,5}$//;
   $val=~s/\.s*html*\?.+//i;
   $val=~s/\.\w{3}\?.+//i;

   my $label = __prettify_string($val);
   return $label;
}

sub output {
   my $self = shift;
   require HTML::Template;
   my $tmpl = new HTML::Template(
      die_on_bad_params => 0,
      scalarref => \$HTML::Template::Menu::DEFAULT_TMPL,
   )
      or die('cant instance HTML::Template object');

   $tmpl->param(
      MAIN_MENU_LOOP => $self->loop,
      MAIN_MENU_CLASS => $self->menu_class );
   return $tmpl->output;
}

sub menu_class {
   my $self = shift;
   $self->{_menu_class_} ||= 'menu_class_'.$self->name;
   return $self->{_menu_class_};
}

sub menu_class_set {
   my($self,$val) =@_;
   defined $val or confess('missing arg');
   $val=~s/\W//g;
   $self->{_menu_class_} = $val;
   return 1;
}



1;

=pod

=head1 NAME

HTML::Template::Menu - ease menu items for quick web user interface

=head1 SYNOPSIS

   use HTML::Template::Menu;

   my $m = new HTML::Template::Menu;

   $m->add('/','home');
   $m->add('/contact.html');
   $m->add('http://google.com');
   $m->add('http://titantv.com', 'view tv listings');

   print $m->output;

=head1 METHODS

=head2 new()

=head2 name()

Returns name of the menu.

=head2 name_set()

Sets name of menu, argument is string.

   my $m = new HTML::Template::Menu;
   $m->name_set('login_menu');

=head2 add()

Argument is url or CGI::Application runmode name.
Optional argument is a label, (the anchor text).

If the first argument has no funny chars, it is treated as a runmode, instead of a url.

The label is what will appear in the link text,
If not provided, one will be made. This is part of what this module does for you.
If you have a runmode called see_more, the link text is "See More".

The link will be

   $ARG2

So in this example:

   $m->add('view_tasks');

The result is:

   View Tasks

=head2 loop()

get loop suitable for HTML::Template object
See SYNOPSIS.

=head2 count()

Takes no argument.
Returns count of items in this menu. (Each item is a menu link.)

=head2 menu_class()

What the TMPL_VAR MAIN_MENU_CLASS will hold, this is the css name.

=head2 menu_class_set()

Arg is string.
Sets the TMPL_VAR MAIN_MENU_CLASS css name. If not provided, one is generated for you.

=head2 output()

If you just want the output with the default hard coded template.
The default template code is stored in:

   $CGI::Application::Plugin::MenuObject::DEFAULT_TMPL


=head1 ADDING MENU ITEMS

   my $m = $self->menu_get('main menu');

   $m->add('home');
   $m->add('http://helpme.com','Need help?');
   $m->add('logout');

Elements for the menu are shown in the order they are inserted.

=head1 DEFAULT TEMPLATE

This is the default template:


   []



You can feed your own template with:

   my $m = HTML::Template::Menu->new;
   $m->add('http://cpan.org');

   my $tmpl = HTML::Template->new( scalarref => \q{

   []

   });

   $tmpl->param( MENU_LOOP => $m->loop );


One other way to change it:

   $HTML::Template::Menu::DEFAULT_TMPL = q{

    []

   };


=head1 ICONS

Each menu item has the TMPL_VAR s set: LABEL, URL, ICON.
ICON is a broken down simplification of whatever was in the URL.
You may choose to use this to include icons.

For example:

   my $m = HTML::Template::Menu->new;
   $m->add('http://cpan.org');

   my $tmpl = HTML::Template->new( scalarref => \q{


   []

   });

   $tmpl->param( MENU_LOOP => $m->loop );

This will create an entry such as:



      [Cpan]



=head1 SEE ALSO

L - the excellent HTML::Template module.
L - spinoff plugin for L.


=head1 AUTHOR

Leo Charre leocharre at cpan dot org

=head1 COPYRIGHT

Copyright (c) 2009 Leo Charre. All rights reserved.

=head1 LICENSE

This package is free software; you can redistribute it and/or modify it under the same terms as Perl itself, i.e., under the terms of the "Artistic License" or the "GNU General Public License".

=head1 DISCLAIMER

This package is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

See the "GNU General Public License" for more details.

=cut