Use an ole object to display html
package HTML::Display::Win32::OleControl;
use parent 'HTML::Display::Win32::OLE';
sub new {
my $class = shift;
$class->SUPER::new( app_string => "FooBrowser.Application", @_ );
$self;
};
my $browser = HTML::Display->new(
class => 'HTML::Display::Win32::OleControl',
);
$browser->display("<html><body><h1>Hello world!</h1></body></html>");
\*(C`setup\*(C' is a method you can override to provide initial setup of your \s-1OLE\s0 control. It is called after the control is instantiated for the first time.
This initializes the \s-1OLE\s0 control and returns it. Only one control is initialized for each object instance. You don't need to store it separately.
Copyright (c) 2004-2007 Max Maischein \*(C`<[email protected]>\*(C'
This module is released under the same terms as Perl itself.