#!/usr/bin/perl
##
## This is just a small and clumsy hommage to all the womans.
## Please remember a woman close to you today.
## They deserve our appreciation and love this day.
## Thanks to my mother, for everything she have done for me,
## and mainly to my wife, that allways supportted me and never gave up.
##
package Woman;
use warnings;
use strict;
use Love;
use Kindness;
use Patience;
use Dedication;
use Charm;
use Beauty;
use Tenderness;
use Strength qw( emotional physical );
use Professionalism;
use Persistence;

map __PACKAGE__->have( $_ ), qw( Success Love Happiness Self-Realization Equal-Rights );