Test::S...Snapshot(3)

📦
version 1.84 · 2 versions
, in fedora 43

💖 Test::Smoke::Syncer::Snapshot 💖

okay bestie, welcome to the Test::Smoke::Syncer::Snapshot page — it lives in the Perl docs under Test::S...Snapshot(3) (yes the header truncates it, she's mysterious like that ✨).

This one handles syncing from an HTTP snapshot (that's Porting/make_snapshot.pl, iykyk). It should only ever be visible from the "parent-package", so like… no direct user-calls on this, bestie. it's giving backstage pass only 🙈

🌸 METHODS 🌸

✨ Test::Smoke::Syncer::Snapshot->new( %args ) ✨

This creates the new object, slay. Keys for %args:

  • ddir — destination directory ( ./perl-current )
  • snapurl — the server to get the download from
  • snaptar — howto untar ( Archive::Tar or 'gzip -d -c %s | tar x -' )
  • v — verbose

✨ $syncer->sync( ) ✨

Fetch the file. Then remove the current source-tree and extract the tarball or zip. no cap, she just does all of it 💅

✨ $syncer->_fetch_archive( ) ✨

_fetch_archive() downloads the archive. that's the whole vibe 🦋

✨ $syncer->_extract_archive( ) ✨

_extract_archive() checks the tar attribute to find out how to extract the archive. This could be an external command or the Archive::Tar/Compress::Zlib modules. she's flexible like that 💖

✨ $syncer->_extract_with_Archive_Tar( ) ✨

_extract_with_Archive_Tar() uses the Archive::Tar and Compress::Zlib modules to extract the archive. (This tested verry slow on my Linux box!) 😭 literally so slow bestie, that typo is in the original and I'm keeping it periodt

✨ $syncer->_extract_with_external( ) ✨

_extract_with_external() uses "$self->{snaptar}" as a sprintf() template to build a command.

Yes that might be dangerous! 💀

✨ __get_directory_names( [$dir] ) ✨

[This is not a method]

__get_directory_names() retruns all directory names from "$dir || cwd()". It does not look at symlinks (there should not be any in the perl source-tree). 👑

✨ __vms_untargz( $untargz, $tgzfile, $verbose ) ✨

Gunzip and extract the archive in $tgzfile using a small DCL script. VMS girlies rise up 🌈

(c) 2002-2013, All rights reserved.

  • Abe Timmerman <abeltje@cpan.org>

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

See:

This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. 😭 read that part twice bestie, she's serious.

perl v5.42.0 — 2025-07-25 — Test::S...Snapshot(3)

okay that's the whole page, you ate that 🫶 go forth and sync those snapshots, main character 💅✨🎀

📦 where this page comes from