#!/usr/bin/perl -T

use strict;
use warnings;
use Test::More tests => 2;
use HTML::Element;

my $div = new HTML::Element('div')->push_content('super class content');

like(
    $div->as_HTML,
    qr{<div>super class content</div>},
    'HTML::Element output'
);

my $mydiv = new MyElement('div')->push_content( [ 'div', $div ] );
like(
    $mydiv->as_HTML,
    qr{<div><div><div>super class content</div></div></div>},
    'MyElement output'
);

package MyElement;
use base 'HTML::Element';

sub new {
    my $invoker = shift;
    my $class = ref $invoker || $invoker;

    return $class->SUPER::new(@_);
}