view _test/temp.pl @ 100:df6b4f054957

Schema in progress Added simple mailer
author wizard
date Thu, 06 May 2010 00:54:17 +0400
parents 964587c5183c
children cf3b6ef2be22
line wrap: on
line source

#!/usr/bin/perl
use strict;

use IMPL::Security::Context;

print IMPL::Security::Context->current->principal->name;