File Coverage

blib/lib/HTML/DragAndDrop.pm

Criterion	Covered	Total	%
statement	18	87	20.6
branch	0	26	0.0
condition	0	10	0.0
subroutine	6	10	60.0
pod	3	4	75.0
total	27	137	19.7

package HTML::DragAndDrop;

use 5.006;
use strict;
use warnings;

require Exporter;

our @ISA = qw(Exporter);

# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.

# This allows declaration	use HTML::DragAndDrop ':all';
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
# will save memory.
our %EXPORT_TAGS = ( 'all' => [ qw(

) ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT = qw(

);

our $VERSION = '0.01';
use Carp;
our $module = "DragDrop.pm";
use strict;
use CGI;


# Preloaded methods go here.
sub new {
    my ($class, %arg) = @_;
    my $self = {};
    $self->{javascript_dir} = $arg{javascript_dir} || '/';
    $self->{javascript_dir} .= "/" unless ($self->{javascript_dir} =~ m:/$:);
    $self->{tooltip} = $arg{tooltip};
    $self->{dragables} = {};
    bless($self, $class);
    return $self;
}

sub add_dragable($%) {
    my ($self, %args) = @_;
    $self->{dragables}->{$args{name}} = \%args;
}

sub output_html($) {
    my ($self) = @_;
    # The order in which we parse the objects, is not the order in which
    # we need to output them
    my $output = '';
    my $script_include_output;
    my $dragables_output;
    my $javascript = $self->{javascript_dir} . 'wz_dragdrop.js';
    $script_include_output .=
        qq(\n\n);

    foreach my $d (keys %{$self->{dragables}}) {

        my $name = $self->{dragables}->{$d}->{name};
        my $width = $self->{dragables}->{$d}->{width};
        my $height = $self->{dragables}->{$d}->{height};
        my $class = $self->{dragables}->{$d}->{class} || 'dragable';

        my $copy = $self->{dragables}->{$d}->{copy};
        $copy = 0 if (!$copy);
        for (0 .. $copy) {
            my $left = $self->{dragables}->{$d}->{left};
            my $top = $self->{dragables}->{$d}->{top};
            my $use_name;
            if ($_ == 0) {
                $use_name = $name if ($_ == 0);
            } else {
                $use_name = $name . 'div' . $_;
            }
            my $tooltip;
            my $tooltip_output = '';
            if ($self->{tooltip}) {
                $tooltip = $self->{dragables}->{$d}->{tooltip};
                if ($tooltip) {
                    $tooltip =~ s/'/\\'/g;
                    $tooltip_output = qq(onmouseover="return escape('$tooltip');");
                }
            }
            if ($self->{dragables}->{$d}->{src}) {
                # Image
                my $src = $self->{dragables}->{$d}->{src};
                $dragables_output .= qq(\n);
            } elsif ($self->{dragables}->{$d}->{content}) {
                # A div?
                my $content = $self->{dragables}->{$d}->{content};
                $dragables_output .= qq($content\n);
            }
        }
    }

    $output .= $script_include_output;
    $output .= $dragables_output;
    return $output;
}

sub output_script($) {
    my ($self) = @_;
    my $dragables;
    my $output = '';

    foreach my $d (keys %{$self->{dragables}}) {
        my $name = $self->{dragables}->{$d}->{name};
        my $features = $self->{dragables}->{$d}->{features};
        $features = '+' . $features unless($features =~ m/^\+/ || $features =~ m/^\s*$/);
        my $src = $self->{dragables}->{$d}->{src};
        my $copy = $self->{dragables}->{$d}->{copy};
        my $to_add = qq("$name");
        if ($src && $copy) {
            $to_add .= "+COPY+$copy";
        }
        $to_add .= $features if ($features);
        $dragables .= $to_add . ',';
    }
    $dragables =~ s/,$//;

    if ($dragables) {
        $output .= qq(\n); </td>
</tr>

<tr>
<td  class="h" >
<a name="129">129</a>
</td>

<td  class="c0" >

0

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">         $output .= "SET_DHTML($dragables);\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="130">130</a>
</td>

<td  class="c0" >

0

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">         $output .= qq(\n);

    }
    if ($self->{tooltip}) {
        my $javascript = $self->{javascript_dir} . 'wz_tooltip.js';
        $output .= qq(\n);
    }
    return $output;
}

1;
__END__