#!/usr/bin/perl

use strict;
use warnings;
use feature 'say';

use SVG::ChristmasTree;

my $tree = SVG::ChristmasTree->new_with_options;

say $tree->as_xml;

=head1 NAME

tree

=head1 DESCRIPTION

Draw an SVG Christmas tree.

=head1 SYNOPSIS

Draw the default Christmas tree.

    $ ./tree > my_tree.svg

Draw a different Christmas tree.

    $ ./tree --layers=5 --pot_colour='rgb(0,0,255)' > another_tree.svg

=head1 OPTIONS

    usage: tree [-?h] [long options...]
        -h -? --usage --help        Prints this usage information.
        --width INT
        --layers INT
        --trunk_length INT
        --leaf_colour STR
        --bauble_colour STR
        --trunk_colour STR
        --pot_colour STR
        --pot_height INT
=cut