Synopsis
#!/usr/bin/env raku
use v6.d;
use lib '../lib';
use Data::Dump::Tree;
use Contact;
my ( $country, $text );
#[
$country = 'USA';
$text = q:to/END/;
John Doe,
123, Main St.,
Springfield,
IL 62704
END
#]
#[
$country = 'UK';
$text = q:to/END/;
Dr. Jane Doe,
Sleepy Cottage,
123, Badgemore Lane,
Henley-on-Thames,
Oxon,
RG9 2XX
END
#]
my Contact $contact .= new: :$country, :$text;
ddt $contact;
say ~$contact;
say $contact.to-json;
you are welcome to view / raise issues / make PRs if you would like to contribute...
TODOs
- add Email::Address (dependency)
- add more countries (GE, FR ...)
Copyright
copyright(c) 2023 Henley Cloud Consulting Ltd.