use SVG::Barcode::DataMatrix;

my $datamatrix = SVG::Barcode::DataMatrix->new;
my $svg        = $datamatrix->plot('https://perldoc.pl');

$datamatrix->dotsize;          # 1
$datamatrix->encoding_mode;    # AUTO
$datamatrix->process_tilde;    # 0
$datamatrix->size;             # AUTO
                               # from SVG::Barcode:
$datamatrix->foreground;       # black
$datamatrix->background;       # white
$datamatrix->margin;           # 2
$datamatrix->id;
$datamatrix->class;
$datamatrix->width;
$datamatrix->height;
$datamatrix->scale;

my %params = (
  level  => 'H',
  margin => 4,
);
$datamatrix = SVG::Barcode::DataMatrix->new(%params);

# use as function
use SVG::Barcode::DataMatrix 'plot_datamatrix';

$svg = plot_datamatrix('https://perldoc.pl', %params);

use SVG::Barcode::DataMatrix 'plot_datamatrix';

$svg = plot_datamatrix($text, %params);

$datamatrix = SVG::Barcode::DataMatrix->new;            # create with defaults
$datamatrix = SVG::Barcode::DataMatrix->new(%params);

$svg = $datamatrix->plot($text);

$value      = $datamatrix->dotsize;
$datamatrix = $datamatrix->dotsize($newvalue);
$datamatrix = $datamatrix->dotsize('');          # 1

$value      = $datamatrix->encoding_mode;
$datamatrix = $datamatrix->encoding_mode($newvalue);
$datamatrix = $datamatrix->encoding_mode('');          # AUTO

$value      = $datamatrix->process_tilde;
$datamatrix = $datamatrix->process_tilde($newvalue);
$datamatrix = $datamatrix->process_tilde('');          # 0

$value      = $datamatrix->size;
$datamatrix = $datamatrix->size($newvalue);
$datamatrix = $datamatrix->size('');          # AUTO