#!/usr/bin/perl -w
# coding: UTF-8

use strict;
use warnings;

package Sample;
use Mojo::Base -base;
has 'element';

package main;
my $a = Sample->new( element => undef );

1;