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>");
setup
"setup" is a method you can override to provide initial setup of your OLE control. It is called after the
control is instantiated for the first time.
control
This initializes the OLE control and returns it. Only one control is initialized for each object
instance. You don't need to store it separately.