File Coverage

blib/lib/MSIE/MenuExt.pm

Criterion	Covered	Total	%
statement	33	46	71.7
branch	0	2	0.0
condition			n/a
subroutine	11	15	73.3
pod			n/a
total	44	63	69.8

package MSIE::MenuExt;

use strict;
use vars qw($VERSION);
$VERSION = 0.02;

require Exporter;
use base qw(Exporter);
use vars qw(@EXPORT);
@EXPORT = qw(
  MENUEXT_DEFAULT
  MENUEXT_IMAGES
  MENUEXT_CONTROLS
  MENUEXT_TABLES
  MENUEXT_TEXT_SELECTIONS
  MENUEXT_ANCHORS
);

use constant MENUEXT_DEFAULT  => hex(1);
use constant MENUEXT_IMAGES   => hex(2);
use constant MENUEXT_CONTROLS => hex(4);
use constant MENUEXT_TABLES   => hex(8);
use constant MENUEXT_TEXT_SELECTIONS => hex(10);
use constant MENUEXT_ANCHORS         => hex(20);

sub new {
    my $class = shift;
    my $self = bless {
	actions => [],
    }, $class;
    if (@_) {
	$self->add_action($_) for @_;
    }
    return $self;
}

sub add_action {
    my($self, $action) = @_;
    push @{$self->{actions}}, $action;
}

sub clear_action {
    my $self = shift;
    $self->{actions} = [];
}

sub content {
    my $self = shift;
    return "REGEDIT4\r\n" . join "\r\n\r\n", map $_->content, @{$self->{actions}};
}

package MSIE::MenuExt::Action;
use base qw(Class::Accessor);
__PACKAGE__->mk_accessors(qw(title accesskey action context));

my $template;
BEGIN {
    $template = <<'EOF';
[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\%s]
@="%s"
"contexts"=hex:%02x
EOF
    ;
    $template =~ s/\n/\r\n/g;
}

sub content {
    my $self = shift;
    my $title = $self->title;
    my $accesskey = $self->accesskey || substr($title, 0, 1);
    $title =~ s/$accesskey/&$accesskey/;
    return sprintf $template, $title, $self->action, $self->context;
}

1;
__END__