view release on metacpan or  search on metacpan

lib/Acme/Floral.pm  view on Meta::CPAN

package Acme::Floral;
use 5.008;
use B::Deobfuscate;

$VERSION = '1.04';

sub ArrangeTheFlowers {
  local $_ = shift;
  tr/\'//d;
  s/[^\-\w\n]+/_/g;
  s/_{2,}/_/g;
  s/_(?=[A-Z])//g;
  $_;
}
sub FillVase { open *B::Deobfuscate::DATA, "<:scalar", \ shift }
sub import { shift; require O; O->import( 'Deobfuscate', @_ ) }

BEGIN {
    $Bouquet = <<Flowers;
Alp Lily
Alpine Hulsea
Alpine Sunflower
Alpine Saxifrage
Alpine Sorrel
Alpine Spiraea
American Speedwell
American Twinflower
Annual Phlox
Antelope Bitterbrush
Arctic Gentian
Arrow-leaved Balsamroot
Arrow-leaved Thelypody
Arthur's Milkvetch
Bachelor's Button
Back's Sedge
Ballhead Waterleaf
Bear Grass
Bearberry
Beautiful Shooting Star
Big-Headed Clover
Big-leaved Huckleberry
Big-Podded Mariposa Lily
Big-Podded Mariposa Lily
Biscuit Root
Bitter Cherry
Bitterroot Lewisia
Bittersweet
Black Henbane
Black Knapweed
Black Raspberry
Black Twinberry
Bearberry Honeysuckle
Blanket Flower
Blue Cup
Blue Mountain Loco Weed
Blue Mountain Onion
Blue Mountain Penstemon
Blue Mountain Swamp Onion
Blue Vine Clematis
Blue-Eyed Grass
Bog Buckbean
Bog St. John's Wort
Bracted Lousewort
Brewer's Cliff Brake
Brewer's Monkeyflower
Broom Buckwheat
Buckbrush
Sticky Laurel
Buffalo Bur
Burke's Larkspur
Butter and Egs
Calico Flower
California Fire Chalice
California Fire Chalice
California