diff options
| author | fukachan <fukachan> | 2001-03-15 15:24:23 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-03-15 15:24:23 +0000 |
| commit | 2ffa0e8cb666b1826df83483c5259010db6358d9 (patch) | |
| tree | 7a66029d512756af9325ccb4923c286d27a3522e /regress/base | |
| parent | e68a1cdf02dccfbb04e991a6507bd0bb82025610 (diff) | |
| download | fml8-2ffa0e8cb666b1826df83483c5259010db6358d9.tar.gz fml8-2ffa0e8cb666b1826df83483c5259010db6358d9.tar.bz2 fml8-2ffa0e8cb666b1826df83483c5259010db6358d9.zip | |
implemente primitive getline() call to MySQL and the cheker of it.
fix the name to toymode.pm not .pl
TODO is things not yet imported from fml 4.0.
Diffstat (limited to 'regress/base')
| -rwxr-xr-x | regress/base/mysql_io.pl | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/regress/base/mysql_io.pl b/regress/base/mysql_io.pl new file mode 100755 index 00000000..1339e65b --- /dev/null +++ b/regress/base/mysql_io.pl @@ -0,0 +1,15 @@ +use IO::Adapter::MySQL::toymodel; + +my $obj = new IO::Adapter::MySQL::toymodel; + +$obj->open({ + sql_user => 'fukachan', + sql_user_password => '', +}); + +while ($_ = $obj->getline) { + print $_, "\n"; +} + +$obj->close; + |