File Coverage

lib/Win32/IE/SlideShow.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package Win32::IE::SlideShow;

use strict;
use warnings;
use Win32::OLE;
use Win32::API;

our $VERSION = '0.03';

sub new {
  my ($class, %options) = @_;

  my $invoked;

  # IE requires special treatment to get an active object.
  # Simple GetActiveObject('...') doesn't work.

  my $shell = Win32::OLE->new('Shell.Application')
                or die Win32::OLE->LastError;
  my $ie;
  if ( $shell->Windows->Count ) {
    $ie = $shell->Windows->Item(0);
  }
  else {
    $ie = Win32::OLE->new('InternetExplorer.Application')
            or die Win32::OLE->LastError;
    $invoked = 1;
  }

#  $ie->{Visible} = 0;
  my @keys = qw( FullScreen TheaterMode Top Left Height Width );
  foreach my $key ( @keys ) {
    $ie->{$key} = $options{$key} if exists $options{$key};
  }
  $ie->Navigate('about:blank');
  if ( $options{TopMost} ) {
    my $wndTopMost = -1;
    my $SWP_NOMOVE = 2;
    my $SWP_NOSIZE = 1;
    my $SetWindowPos = Win32::API->new('user32', 'SetWindowPos', 'NNNNNNN', 'N');
    $SetWindowPos->Call( $ie->{HWND}, $wndTopMost, 0, 0, 0, 0, $SWP_NOMOVE|$SWP_NOSIZE );
  }
  $ie->{Visible} = 1;

  my $self = bless { ie => $ie, invoked => $invoked }, $class;

  $self;
}

sub set {
  my ($self, @slides) = @_;
  $self->{slides} = \@slides;
  $self->{total}  = scalar @slides;
  $self->{index}  = 0;
}

sub set_callback {
  my ($self, $callback) = @_;

  $self->{converter} = $callback;
}

sub total { shift->{total} }

sub start { shift->goto(1) }

sub goto {
  my ($self, $page) = @_;

  # "page" (which viewers may see) should start from 1,
  # but "index" (used internally) should start from 0.
  $self->{index} = $page - 1;
  $self->next;
}

sub next {
  my $self = shift;

  my $slide = $self->{slides}->[$self->{index}++];

  if ( $self->{converter} ) {
    $slide = $self->{converter}->( $slide );
  }

  my $document = $self->{ie}->{Document};
     $document->open( "text/html", "replace" );
     $document->write( $slide );

  # actually this "index" points to the next slide,
  # however, "index" + 1 happens to be the same as the "page".
  return $self->{index};
}

sub has_next {
  my $self = shift;

  return $self->{index} < $self->{total} ? 1 : 0;
}

sub back {
  my $self = shift;

  if ( $self->page > 1 ) {
    $self->goto( $self->page - 1 );
  }
}

sub page {
  my $self = shift;

  return ( $self->{index} + 1 );
}

sub quit {
  my $self = shift;
  if ( $self->{ie} && $self->{invoked} ) {
    $self->{ie}->Quit;
    delete $self->{ie};
  }
}

sub DESTROY { shift->quit }

1;

__END__