Select Code to Download

%styles = ( %styles, %SVGcal::styles );

@styles{ keys %SVGcal::styles } = values %SVGcal::styles;

while ( my ($k,$v) = each %SVGcal::styles ) {
   $styles{$k} = $v;
}